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TOng quan vé Visual Basic 6.0 

Muc tiéu: Chuong nay giGi thiéu vé méi truOng phat trién tich hop (IDE) 
Microsoft Visual Basic 6.0; ciing nhu gitip sinh vién c6 cai nhin tong quan 
vé Visual Basic. 


Hoc xong chuOng nay, sinh vién phai nam bat dugc cdc van dé sau: 

- SU dung mi truOng phat trién tich hop VB 6.0 dé phat trién Ung dung. 
- Cach tao dy an mGi (New Project) trong VB 6.0. 

Kién thc c6 lién quan: 

- SU dung hé diéu hanh Windows. 

Tai li€u tham khao: 


- Visual Basic 6 Certification Exam Guide - Chapter 1, Page 1 - Dan 
Mezick & Scot Hillier - McGraw-Hill - 1998. 


GiGi thiéu vé Visual Basic 6.0 


Visual Basic 6.0 (VB6) la mOt phién ban cUa bO cong cu lap trinh Visual 
Basic (VB), cho phép ngudi ding tiép can nhanh cach thUc lap trinh trén 
m6i trudng Windows. Nhtfng ai da ting quen thudc v6i VB thi tim thay 6 
VB6 nhting tinh nang tro giup mdi va cac cong cu lap trinh hiéu qua. 
Ngudi ding mdi lam quen vGi VB ciing co thé lam chU VB6 m6t cach dé 
dang. 


VGi VB6, chting ta co thé: 


e Khai thac thé manh cla cac diéu khién mG rOng. 

e Lam viéc v6i céc diéu khién mGi (ngay thang v6i diéu khién 
MonthView va DataTimePicker, cdc thanh cong cu cé thé di chuyén 
dudc CoolBar, str dung d6 hoa vGi ImageCombo, thanh cu6n 
FlatScrollBar,...). 

e Lam vic vi cac tinh nang ng6n ng moi. 

e Lam viéc v6i DHTML. 


e Lam viéc v6i co sO df liéu. 

¢ Cac b6 sung vé 1p trinh hung d6i tuong. 
Cai dat Visual Basic 6.0 
SU dung chuOng trinh Setup, ngu0i ding c6 thé cai dat VB6 lén may tinh 
cUa minh. Chuong trinh Setup nay con cai dat céc tap tin can thiét dé 
xem tai liéu trén dia CD MSDN (Microsoft Developer Network). Néu can, 
ngudi ding cé thé cai dat riéng phan tai li€u va vi dy mau cUa Visual 


Basic lén may tinh. 


Dé cai dat VB6, ngudi ding nén kiém tra may tinh cUa minh dam bao 
duoc cau hinh ti thiéu. Cac yéu cau hé thOng ti thiéu : 


- Microsoft Windows 95 trd lén hoac 1a Microsoft Windows NT 
Workstation 4.0 trd 1én. 


- T6c dO CPU 66 MHz tré 1én. 


- Man hinh VGA hoac man hinh c6 d6 phan giai cao dudc h6 tro bdi 
Microsoft Windows. 


- 16 MB RAM cho Microsoft Windows 95 hoac 32MB RAM cho 
Microsoft Windows NT Workstation. 


Lam quen vGi VB6 
Bat dau mét du an m6i vGi VB6 


TU menu Start chon Programs, Microsoft Visual Basic 6.0. Khi d6 ban sé 
thay man hinh dau tién nhu hinh I.1 du6i day. 


Hinh I.1 CUfa s6 khi kich hoat VB6 
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O day, ngudi ding cé thé chon tao mi mot du én thuc thi duoc bang 
cach chon Standard EXE réi nhap Open (Hinh 1.2). 


Tiép theo la ca s6 lam viéc chinh cUa VB6, gi tat 1a IDE (Integrated 
Development Environment) sé du@c giGi thiéu chi tiét trong phan sau. 


Tim hiéu cdc thanh phan cla IDE 


IDE 1a tén tat cUa mdi truOng phat trién tich hgp (Integrated Development 
Environment), day la noi tao ra cac chUOng trinh Visual Basic. 


IDE cUa Visual Basic 1a nOi tap trung cdc menu, thanh cong cU va cUla sO 
dé tao ra chuOng trinh. M6i m6t thanh phan cUa IDE cé cac tinh nang 
anh huGng dén cac hoat dOng lap trinh khac nhau. 
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Hinh 1.3 Ctra s6 IDE cua VB6 


Thanh menu cho phép ban tac dOng cfing nhu quan ly trUc tip trén toan 
bO Ung dung. Bén canh dé thanh c6ng cU cho phép truy cap cac chu 
nang cUa thanh menu th6ng qua céc nit trén thanh c6ng cu. 


Cac biéu mau (Form) - kh6i xay dung chuOng trinh chinh cUa VB - xuat 
hién trong cUfa s6 Form. HOp cong cu dé thém cac diéu khién vao cdc 
biéu mau cUa dé an. CUa sO Project Explorer hién thi cac dé an khac 
nhau ma ngudi ding dang lam citing nhu cdc phan cUa dé an. Nguoi ding 
duyét va cai dat cdc thu6c tinh ca diéu khién, biéu mau va module trong 
cUra sO Properties. Sau cting, nguOi ding sé xem xét va b6 tri m6t hoac 
nhiéu biéu mau trén man hinh thong qua cUla sO Form Layout. 


Su dung thanh céng cu trong IDE cua VB 


Thanh cong cu 1a tap hop cac nuit bam mang biéu tuong thuOng dat dudi 
thanh menu. Cac ntit nay dam nhan cdc chu nang thong dung cUa thanh 
menu (New, Open, Save ...). 
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Hinh I.4 Thanh cng cu 6 dang standard 
Hon ntta, ngudi ding cé thé kéo ré thanh céng cU trén IDE dén vi tri bat 
ky nao do thuan tién cho viéc sU dung. 
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Hinh I.5 Popup menu thém, x6a cong cUNgudi ding cé thé thém hay xda 
thanh cong cu trén IDE: 


* Chon Toolbars ttf menu View hodac an chu6t phai vao diém bat ky nao 
trén thanh menu, mOt popup menu bat ra. 


* Chon loai thanh céng cu ma ta muOn thém vao hoac xéa di. Néu c6é 
danh dau check 6 bén trai thi loai cng cU dé dang duc chon. 


SU dung thanh céng cu g6 r6i (debug) 
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Hinh I.6 Thanh cong cu g6 rOiVGi thanh cong cU g6 r6i, ngUOi ding cd 
thé thuc thi, tam ngUng hodc dung m6t dé an. VGi thanh cong cU Debug, 
ngudi ding cé thé kiém tra chuOng trinh va giai quyét cdc 16i cé thé xay 
ra. Khi gO ri chuong trinh, ngu0i ding c6 thé chay tUing dong 1énh, 
kiém tra gid tri cdc bién, dling chuOng trinh tai mOt diém nao dé hoac 
vGi mot diéu kién nao do. 


Su dung thanh céng cu Edit 
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Hinh I.7 Thanh cong cu EditThanh céng cu Edit dudc ding dé viét 
chuOng trinh trong ctta s6 Code, thanh cong cy Edit c6 day dU cac tinh 
nang cUa menu Edit. Ngoai ra nguOi sUr dung cé thé str dung chUc nang 
viét chUOng trinh tu dOng nhu 1a Quick Info. 


Thanh céng cu Edit cua VB6 cé tinh nang ly thi do 1a tu hoan tat cac tlr 
khéa. Tinh nang nay rat hCtu dung gitip cho ngudi ding tranh cdc 10i mac 
phai do g6 sai tlr khéda. 

Su dung thanh céng cU Form Editor 
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Hinh I.8 Thanh cng cu thiét ké biéu mau 


Thanh cong cU Form Editor c6 chutc nang giOng nhu menu Format dung 
dé di chuy€n va sap x€p cac diéu khién trén biéu mau. 


Trong qua trinh thiét ké biéu mau, déi khi chting ta phai sl’ dung thudc 
tinh ZOrder dé cho phép m6t diéu khién c6 thé thay thé m6t diéu khién 
khac hay khong hoac 1a xuat hién bén trén m6t diéu khién khac hay 
khong. 
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Su dung hOp cong cu (Toolbox) 


HOp cong cu 1a noi chUfa céc diéu khién dudc ding trong qua trinh thiét 
ké biéu mau. Cac diéu khién dugc chia lam hai loai: Diéu khién cé san 
trong VB va cac diéu khién du@c chtfa trong tap tin vi phan mG rOng 1a 
0CX., 


DOi vGi cdc diéu khién c6 san trong VB thi ta khong thé g6 bo khdi hOp 
cng cu, trong khi dé déi véi diéu khién nam ngoai ta cd thém hoadc x6a 
bo khdi hp céng cu. 

Mot diéu khién cé thé dugc dua vao biéu mau bang cach chon diéu 
khién do va dua vao biéu mau. Chung ta sé trd lai phan nay trong 
chung tiép theo khi thiét ké cdc bi€éu mau. 

Hinh 1.9 H6p cong cu cua Visual Basic 


Quan ly Ung dung vGi Project Explorer 


Project Explorer trong VB6 gitip quan ly va dinh huGng nhiéu dé 4n.VB 
cho phép nhém nhiéu dé 4n trong cing mOt nhém. Ngudi ding c6 thé luu 


tap hop cac dé an trong VB thanh m6t tap tin nhom dé an v6i phan mé 
rong .vbp. 
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Hinh 1.10 Cla s6 Project ExplorerProject Explorer c6 cau trtic cay phan 
cap nhu cay thu mUc trong cUta sO Explorer cUa hé diéu hanh. Cac dé an 
c6 thé dugc coi 1a g6c cUa cay, cdc thanh phan cUa dé an nhu biéu mau, 
module ... 1 cdc ntit cla cay. Khi mu6n lam viéc v6i thanh phan nao thi ta 
co thé nhan dtp lén thanh phan do trén ctta s6 Project Explorer dé vao 
cUra sO viét code cho thanh phan do. 
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Hinh I.11 Ctta s6 PropertiesKhi lam viéc vGi mOt dy an 16n, ching ta sé 
thay Project Explorer cu ky httu ich cho viéc t6 chic va quan ly m6t du 
an 16n. 


Ctra sO Properties 


MOi m6t thanh phan, diéu khién diéu cé nhiéu thu6c tinh. MOi mét 
thu6c tinh lai cé6 m6t hodc nhiéu gia tri. 


Ctra sO Properties cho phép ngudi ding xem, sUfa d6i gid tri cdc thuGc tinh 
cUa diéu khién nham gitip diéu khién hoat dOng theo dting y d6 cua 
ngudi su dung. 


Ctra s6 Form Layout 


Day chinh 1a cUa sO trinh bay bi€u mau cho phép dinh vi tri cua mOt hodc 
nhiéu biéu mau trén man hinh khi chuOng trinh ting dung dugc thi hanh. 


Ta fdnh vo moat bieau madu trean magn hinh baéng catich dugng chuoat di 
chuyean bieau madau trong cétia soa Form Layout. 
[missing resource: .png] 


Hinh 1.12 CUra s6 Form LayoutSt dung cUfa sO Form Layout khéng don 
gian nhu cac cUla sO khac vi né khong dugc kich hoat san, ngudi ding 


can phai chay Umng dung sau do mi cé thé b6 tri dudc cdc biéu mau 
thong qua Form Layout. 


Néu ta khong dinh vi cdc bi€u mau thi vi tri cUa biéu mau trén man hinh 
lic thiét ké ciing 1a vi tri khGi d6ng cUa biéu mau khi thuc thi. 


Bién dich dé an thanh tap tin thc thi 


Sau khi dé an da hoan thanh, ngu0i ding cé thé bién dich thanh tap tin 
thuc thi dudc. Cach tién hanh nhu sau: 


- TruGc tién ta can chi cho VB6 biét phan chuong trinh nao sé dudc thu 
thi truGc bang cach chon Project Properties tl’ menu Project. Chon tab 
General, chti y phan Startup Object, day 1a noi quy dinh diém khdi dau 
cUa chuOng trinh sau khi bién dich két thtic. 


- TU menu File, chon Make ... EXE... MOt hép thoai xuat hién cho phép 
ban nhap vao tén cUa tap tin thUc thi. Ban chi can g6 tén tap tin, VB sé 
tu dOng thém phan m6 réng .EXE. 


- Nhan vao nut Options dé md hOp thoai Project Properties va dién tén 
cUa Ung dung vao 6 Title, ta cd thé ghi cht thong tin cho tUng phién ban 
trong phan Version Information. Ta cé thé chon Auto Increment dé VB tu 
dOng tang sO Revision mOi lan ta tao lai tap tin EXE cho dv an. 


- Cui cing, nhan OK dé trdé vé hép thoai Make Project. 


Biéu mau va m6t s6 diéu khién thong dung 

Muc tiéu: Chuong nay gidi thiéu vé mét s6 diéu khién co ban dé tao 
nén giao dién cho céc Ung dung ciing nhu mt s6 khdai niém trong lap 
trinh vGi VB; nhting yéu cau t6i thiéu can cé trong viéc “lap trinh su 
ki€n” vi VB. 

Hoc xong chuOng nay, sinh vién phai nam bat dugc cac van dé sau: 

- Khai niém vé diéu khién, thuéc tinh, phuong thUtc, su’ kién. 

- Quy tac dat tén danh biéu trong VB. 

- SU dung biéu mau trong thiét ké giao dién. 

- SU dung diéu khién 6 nhap 1liéu, nut nhan, nhan, khung. 

Kién thc c6 lién quan: 

- Cach thc st dung mdi truOng phat trién VB. 

Tai li€u tham khao: 

- Microsoft Visual Basic 6.0 va Lap trinh Co sé df liéu - Chuong 2, trang 
26; ChuOng 3, trang 29 - Nguyén Thi Ngoc Mai (chu bién), Nha xuat ban 
Giao duc - 2000. 

Cac khai niém 


e BDiéu khién: Cac thanh phan cé san dé ngudi lap trinh tao giao dién 
tuOng tac vGi nguOi ding. 


MOi diéu khién thu chat 1a mOt d6i tugng, do vay no sé cd mot sO 
diém dac trung cho d6i tuong, chang han nhu cdc thu6c tinh, cac 
phuong thufc & cdc su kién. 


e Thu6c tinh: Cac dac trung cUa mOt diéu khién tao nén dang vé cla 
diéu khién do. 


e Phuong thifc: Cac diéu khién cé thé thu thi mt s6 tac vu nao do, 
cac tac VU nay duc dinh nghia san bén trong cdc phuOng thUc (con 
goi la chuOng trinh con: ham & thu tuc), ngu0i lap trinh c6 thé goi 
thu thi c4c phuong thUfc nay néu can. 

e Su kién: 1a hanh d6ng cUa ngu¢i ding tac d6ng lén Ung dung dang 
thu thi. 


Thi du:- Nhan phim bat ky trén ban phim. 
- Nhap chudt. 


Cac thanh phan giao dién cé kha nang dap Ug lai sy kién. Chang han 
khi chting ta nhap chu6t vao button, lic d6 button nhan biét dudc su kién 
nay; hay nhu textbox nhan biét duc sy kién ban phim tac dOng 1én no. 


MO6t Ung dung trén Windows thuOng du@c thuc hién nhd vao viéc dap 
Ung lai cac su kién cUa nguOi ding. 


e Lap trinh su kién: 


Cac thanh phan giao dién cé kha nang nhan biét dugc cac su kién tl 
phia ngu0i ding. Tuy nhién kha nang dap Ung lai cdc su kién dudc thuc 
hién bdi ngudi lap trinh. 


Khi m6t thanh phan giao dién duc sU dung, ngudi lap trinh phai xac 
dinh chinh xdc hanh dOng cla thanh phan giao dién dé dé dap Ung lai 
m6t su kién cu thé. Luc d6 ngudi lap trinh phai viét doan ma lénh ma 
doan ma ]énh nay sé duc thu thi khi su kién xay ra. 


Chang han, trong Ung dung Paint cua Windows; khi ngu0i sU dung nhap 
chuét vao nut vé hinh elip sau d6 ding chudt vé no trén cla s6 vé, mot 
hinh elip dugc vé ra. 


Trong lap trinh sy’ kién, mt Ung dung dudc xy dung 1a m6t chudi cdc 
dap Ung lai su’ kién. Tat ca cdc hanh d6ng cUa Ung dung 1a dap Ung lai 
cac sU kién. Do vay ngu¢i lap trinh can phai xac dinh cdc hanh dong can 


thiét cUa Ung dung; phan loai ching; sau d6 viét cdc doan ma lénh tuong 
Ung. 


Thi du vé dap Ung lai su kién: 
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- Khi nguoi ding khéng tac d6ng vao Ung dung, Ung dung khong lam gi 
ca. 
- Khi ngudi ding nhap df liéu vao cdc 6 nhap Ho va tén, Dia chi; su kién 
ban phim xay ra trén cdc 6 nhap. Tuy nhién, Ung dung van khong lam gi 
ca vi khong cé doan ma 1énh nao dap Ung cac su kién nay. 
- Khi nguoi ding nhap ntit chon Ghi dia, Ung dung tim kiém trong ma 
1énh cUa minh thay c6 doan ma lénh dap Ung lai sy kién nay; lic dé 
doan ma lénh duc thu thi. 
- TUOng tu nhu vay d6i vdi nut chon In giay. 

e Cach xac lap cdc thu6c tinh & cdc phuong thUc trong chuOng trinh 


<Thu6c tinh Name cUa diéu khién>.<Tén thu6c tinh> 


<Thu6c tinh Name cUa diéu khién>.<Tén phuong thtc>[(<Cac tham 
sO>)] 


e Tén diéu khién (thuGc tinh Name) 


Day 1a thuGc tinh xdc dinh tén cUa diéu khién trong Ung dung. Tén nay 
duoc dat theo quy tac: 


e Tén co thé dai t1 - 40 ky tu. 
e Tén phai bat dau vdi ky tu cht, cé thé cht? hoa hay thuOng. 


e Sau ky tu’ dau tién, tén c6 thé chUa ky tu, s6 hay dau gach dudi. 


Vi du: Num, StudentCode, Class12A2 1a nhting tén hop 16. 345, 7yu la 
nhUg tén khong hop 1é. 


Biéu mau (Form) 
Khai niém: 


Chuong trinh Ung dung giao ti€p vi ngudi ding théng qua cdc biéu mau 
(hay con goi la cla s6, xuat phat tlr cht Form hay Windows); cdc diéu 
khién (Control) dugc dat lén bén trén gitip cho biéu mau thuc hién dudc 
cong viec do. 


Biéu mau la céc cla s6 dugc lap trinh nham hién thi dt liéu va nhan 
thong tin tU' phia nguOi ding. 


Thu6c tinh 


e Name: thu6c tinh nay nhu' la m6t dinh danh nham xac dinh tén cua 
biéu mau la gi? Ta sé sl’ dung thu@c tinh nay dé truy xudt dén cdc 
thudc tinh khac citing vGi phuong thttc cé thé thao tac du@c trén biéu 
mau. 

¢ Caption: chudi hién thi trén thanh tiéu dé cUa biéu mau. 

¢ Icon: hinh icon du@c ding trong thanh tiéu dé cUa bi€u mau, nhat la 
khi bi€u mau thu nho lai. 

e WindowState: x4c dinh bi€u mau sé cé kich thuGc binh thudng 
(Normal=0), hay Minimized (=1), Maximized =(2). 

e Font: xdc lap Font cho biéu mau. Thu6c tinh nay sé dugc cac diéu 
khién nam trén no thura ké. TUc 1a khi ta dat mOt diéu khién lén 
biéu mau, thu@c tinh Font cUa diéu khién ay sé tu dong tro nén 
giOng y cUa biéu mau. 

¢ BorderStyle: xdc dinh dang cUa biéu mau. 


Phuong thUc 


¢ Move: di chuyén biéu mau dén toa dé X,Y: Move X, Y. 


Su kién 


e Form_Initialize: SW kién nay xay ra truGc nhat va chi mt lan thdi 
khi ta tao ra thé hién dau tién cUa biéu mau. Ta ding su kién 
Form_Initialize dé thuc hién nhting gi can phai lam chung cho tat 
ca cac thé hién cla biéu mau nay. 

¢ Form_Load: Su kién nay xay ra m6i lan ta goi thé hién m6t biéu 
mau. Néu ta chi ding mét thé hién duy nhat cUa mét biéu mau 
trong chUOng trinh thi Form_Load coi nhu tuong duong vdi 
Form_Initialize. 


Ta ding su kién Form_Load dé khdi tao cac bién, diéu khién cho cac thé 
hién cUa biéu mau nay. 


e Form_Activate: M6i lan mét bi€u mau du@c kich hoat (active) thi 
m0t su’ kién Activate phat sinh. Ta thuOng ding su’ kién nay dé cap 
nhat lai gia tri cac diéu khi€n trén biéu mau. 

e Form_QueryUnload: Khi ngu0i str dung chung trinh nhap chudt 
vao nut X phia trén bén phai dé dong biéu mau thi mét sy kién 
QueryUnload dugc sinh ra. Doan chuong trinh con dui day m6 ta 
thu tuc xU ly su’ kién QueryUnload. 


Private Sub Form_QueryUnload(Cancel As Integer, _ 
UnloadMode As Integer) 
End Sub 


Su kién nay cho ta kha nang huy bo hanh d6ng dong bi€u mau bang cach 
dat lai Cancel 1a 1. 


¢ Form_Resize: Su kién nay xay ra m0i khi biéu mau thay d6i kich 
thudc. 


Nhan (Label) 


Khai niém: 


Nhan 1a diéu khién dang d6 hoa cho phép ngudi su’ dung hién thi chudi 
ky ty trén biéu mau nhung ho khong thé thay d6i chudi ky tu d6 mét 
cach trUc tiép. 


Biéu tuQng (shortcut) trén hép céng cu: 


Thu6c tinh: 


e Name: Day la m6t tén xéc dinh m6t dinh danh, ngu6i lap trinh cé thé 
thay d6i tén nay theo c4ch cUa minh dé tién str dung. 

¢ Caption: Thu6c tinh quy dinh chudi ky tu hién thi khi ta tao mOt 
diéu khién nhan. Khi ta tao mGi m6t diéu khién thi thuéc tinh 
Caption co gia tri mac nhién 1a “Label...”. 


Vi du: Ta mu6n tao m6t nhan 1a “Chao mUng ban dén vGi Visual Basic”, 
ta thay d6i gia tri cUa thuc tinh Caption thanh “Chao mUng ban dén véi 
Visual Basic”. 


Ta co thé thay d6i gia tri cUa thuéc tinh Caption tai thoi diém Ung dung 
dang chay nho vao doan mA /énh don gian nhu sau: 


L1.Caption = "Da d6i gia tri Caption" vGi L1 1a tén cUa diéu khién nhan 
ma ta muOn d6i. 


¢ Font, Fore Color: Quy dinh kiéu cht, kich thu6c, mau hién thi. 

e BackStyle, BackColor: BackStyle quy dinh 1a nhan trong sudt hay 
khéng. BackColor quy dinh mau nén cUa nhan trong trudng hop 
kh6ng trong suét. 


Phuong thtfc: 


¢ Move: di chuyén nhan dén toa dO X,Y: Move X, Y. 


Su kién: 


e Change: Xay ra mOi khi nhan thay d6i gia tri. 

e Click: MOi khi nhan duc chudt nhap lén, su kién nay xay ra. 

e DbiClick: Xay ra khi ngudi sU dung nhap dup chudt lén diéu khién 
nhan. 


Khung (Frame) 


Khai niém: 


*** SORRY, THIS MEDIA TYPE IS NOT SUPPORTED.*** Khung la 
mt diéu khién ding trong viéc b6 tri giao dién cUla biéu mau mt cach 
trong sdng va ro nét. Thong thuOng cac diéu khién cing phuc vu cho mét 
cong viéc nao dé sé dudc dat trong mét khung nham lam n6i bat vai trd 
cUa ching. 


Biéu tuOng (shortcut) trén h6p cong cu: 


Khi ching ta tao mGi mét khung dé cht¥a cdc diéu khién khac, ta c6 hai 
cach thu hién: 


- Tao khung chtta tru‘Gc, sau do dua céc diéu khién vao trong khung chtia. 
Day 1a cach don gian nhat. 

- Tao khung cht¥a sau khi da tao mGi céc diéu khién, khi d6 khung chtta 
s@ che mat cdc diéu khién, vi vay ta can phai dua khung chUa ra sau cdc 
diéu khién bang cach nhap chudt phai va chon Send to Back. Nhung d6i 
vGi cach nay, cdc diéu khién khac khéng nam trén khung chtfa. Do vay ta 
c6 thé giai quyét bang cach cat (Cut) cdc diéu khién nay di, sau dé dan 
(Paste) vao trong khung chua. 


Hinh II.2 Vi du vé khung chUfa (Frame) 


[missing resource: .png] 


Thu6c tinh: Khung ciing cé cac thuéc tinh thong dUng nhu cla diéu 
khién nhan chang han nhu: Name, Caption... 


Phuong thc: 


¢ Move: di chuyén khung dén toa d6 X,Y: Move X, Y. 


Su kién: 


¢ Click, DblClick: xay ra khi khung nhan duc m6t thao tac nhap 
(nhap dup) chudt. 


Nut l@nh (Command Button) 


Khai niém: 


Nut 1énh 1a m6t diéu khién ding dé bat dau, ngat hodc két thiic m6t qua 
trinh. Khi nit 1@nh dugc chon thi no trong nhu dugc nhan xuOng, do dé 
nut 1énh con dugc goi 1a nuit nhan (Push Button). Ngudi st dung ludn cé 
thé chon mt nuit 1€nh nao d6 bang cach nhén chu6t trén nut 1énh do. 


Biéu tung (shortcut) trén hOp céng cu: 


Thu6c tinh: 


e Name: st’ dung nhu m6t dinh danh nham xac dinh tén cUa nut 1énh. 

¢ Caption: Ding dé hién thi mt chui nao dé trén nuit 1énh. 

¢ Default: Néu gia tri cUa thu6c tinh nay 1a True thi ta cé thé chon ntt 
1€nh bang cach nhan phim Enter. 

° Cancel: Néu gid tri cUa thu6c tinh nay 1a True thi ta cé thé chon ntit 
1€nh nao dé bang cach nhan phim ESC. 

¢ Enabled: Trong m6t biéu mau, cé thé cd nhiéu nuit 16nh dé thuc 
hién nhiéu cong viéc khac nhau va tai mOt thOi diém nao dé ta chi 
duc phép thuc hién m6t sO céng viéc. Néu gia tri thuéc tinh 
Enabled 1a False thi nut 1@nh d6 khéng cé tac dung. Gia tri mac dinh 
cUa thu@c tinh nay 1a True. Ta c6 thé thay d6i gid tri cUla thu6c tinh 
tai thoi diém chay Ung dung. 

¢ ToolTipText: cho phép hién thi m6t doan van ban chii thich cong 
dung cUa ntit 1énh khi ngu0i sUr dung ding chu6t ré trén nut nhan. 

e Font, Fore Color: Quy dinh kiéu cht, kich thuGc, mau hién thi. 


Phuong thtic 


e Move: di chuyén ntit lénh dén toa d6 X,Y: Move X, Y. 


Phuong thUc 
° Click: day la sy kién thuOng xay ra vGi nuit 1@nh. M6i khi m6t nut 
1énh dudc chon, su kién nay duc kich hoat. Do d6, ngui su’ dung 
sé viét ma céc lénh dé dap Ung lai su kién nay. 


Vi du: Tao m6t biéu mau cé m6t 6 nhap liéu vGi nhan 1a ho tén va mét 
nut 1énh cho phép dua ra cau chao nguoi ding do. 


Private Sub Command1_Click() 
MsgBox "Chao mung ban " & Text1.Text & _ 
" lam quen voi Visual Basic" 


End Sub 
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Click hereHinh II.3 SU dung nit 1énh 

O nhap liéu (TextBox) 

Khai niém: 

O nhap liéu 1a mt diéu khién cho phép nhan thong tin do ngudi ding 
nhap vao. DOi vdi 6 nhap liéu ta cing cé thé ding dé hién thi thong tin, 
thong tin nay dudc dua vao tai thoi diém thiét ké hay tham chi 6 thdi 
diém thuc thi Ung dung. Con thao tac nhan théng tin do ngudi ding nhap 
vao di nhién 14 du@c thu hién tai thoi diém chay Ung dung. 


***SORRY, THIS MEDIA TYPE IS NOT SUPPORTED.*** Biéu tuong 
(shortcut) trén hOp céng cu 


Thu6c tinh: 


e Name: Day 1a tén cUa 6 nhap liéu, dudc su dung nhu’ mt dinh danh. 

e MaxLength: Thu6c tinh guy dinh s6 ky tu’ t6i da cé thé nhap vao 6 
nhap liéu. Néu s6 ky tu nhap vao vuot qua sO ky tu tdi da thi chi cé 
ding sO ky tu t0i da dudc ghi nhdn vao trong thuGc tinh Text. 

¢ Text: Ding dé nhdp vao thong tin can hién thi trong Textbox tai thdi 
diém thiét ké hodc nhan gia tri do ngudi ding nhap vao tai thdi 
diém chay Ung dung. 


Vi du: 
MsgBox Text1.Text 


Doan ma nay viét trong su kién Click cUa nit |6nh OK. Cho phép hdép 
thong bao hién thi nOi dung do ngudi ding nhap vao 6 nhap liéu. 


*** SORRY, THIS MEDIA TYPE IS NOT SUPPORTED.*** 
Hinh I1.3 Vi du vé diéu khién 6 nhap liéu 


¢ Locked: Thu6c tinh cho phép ngudi ding thay d6i ndi dung cUa 6 
nhap liéu dudc hay khéng? Thu6c tinh nay c6 thé nhan 2 gia tri True 
hoac False. Néu False thi ngu0i ding cé thé thay d6i ndi dung cua 6 
nhap liéu & mac dinh thi thu6c tinh nay cé gia tri 1a False. 

e PasswordChar: Thu6c tinh nay quy dinh cach hién thi thong tin do 
ngudi ding nhap vao. Chang han, néu ta nhap vao gia tri thu6c tinh 
nay la * thi cdc ky tu nhdp vao diéu hién thi bi dau * . Thudc tinh 
nay thuOng dugc ding trong tr'uOng hgp thong tin nhap vao can 
duc che gidu (Vi du mat khdu dang nhap m6t chuong trinh Ung 
dung nao dé ma trong d6 cdc ngu0i ding khac nhau thi cé céc quyén 
khac nhau). 

e Multiline: Thu6c tinh quy dinh 6 nhap liéu cé dugc hién thi théng tin 
du6i dang nhiéu hang hay khong, néu 1a TRUE thi 6 nhap liéu cho 
phép nhiéu hang. 

¢ Font, Fore Color: Quy dinh kiéu chif, kich thuGc, mau hién thi. 


e SelLength:Cho phép tra vé hoac dat trudc s6 luong ky tu dudc 
chon trong 6 nhap 1liéu. 

e SelStart: Tra vé hoac xac dinh diém bat dau cUa chudi dudc chon. 
Day 1a vi tri bat dau chén m6t chudi mdi trong tr'uOng hop khong cé 
danh dau chon chu6i. 

e SelText: Tra vé hodc xac dinh chudi ky tu duc danh dau chon, 
chi tra vé sé 1a rong néu nhu khéng danh dau chon chu0i nao. 


Ba thu@c tinh SelLength, SelStart, SelText chi cé tac dung tai thoi diém 
chay Ung dung. 


Phuong thUc 


¢ Move: Di chuyén 6 nhap liéu dén toa dé X, Y: Move X, Y. 

¢ SetFocus: Phuong thUtc nay nham muc dich thiét lap cho diéu khién 
6 nhap liéu nhan duc Focus, nghia la né san sang dudc tuOng tac 
bdi ngUOi sU dung. 


Su kién: 


e KeyPress: xay ra khi ngudi str dung chuOng trinh nhdn m6t phim. 
DOi voi diéu khién TextBox, ta thuOng ding no dé loc (filter out) 
cac phim khéng chap nhan. Su ki€n KeyPress cho ta mOt ma Ascii, 
mOt sO cé gia tri tu. 0 dén 255, cUa phim vUra nhan. Trong vi du du6i 
day, TextBox Text1 sé chi nhan biét cdc phim 1a s6 (0 - 9), khong 
nhan biét cdc phim khac: 


Private Sub Text1_KeyPress(KeyAscii As Integer) 


If KeyAscii < 48 Or KeyAscii > 57 Then ‘ Ma Ascii cUa 0 1a 48, cua 9 1a 
57 


KeyAscii = 0 


End If 
End Sub 
e KeyDown, KeyUp: mOi su kién KeyPress lai cho ta mt cap sy kién 

KeyDown/KeyUp. Su ki€n KeyDown/KeyUp cé 2 tham so 1a 
KeyCode va Shift. Su ki€n nay cho phép ta nhan biét du@c céc phim 
dac biét trén ban phim. Trong vi du dui day, ta hién thi tén céc phim 
chUc nang ma ngudi str dung chuong trinh nhan vao: 

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) 

If (KeyCode >= 112) And (KeyCode <= 123) Then 

MsgBox "Ban vua nhan phim chuc nang: F" & _ 

Trim(Str(KeyCode - 111)) 

End If 


End Sub 


Lap trinh cau tric trong Visual Basic 

Muc tiéu: Chuong nay gidi thiéu vé cdc cau tric lap trinh trong VB; day 
la cdc cau tric cét léi dé xay dung nén mt chuOng trinh VB. 

HOc xong chuOng nay, sinh vién phai nam bat duQc cac van dé sau: 
- SU dung moi truOng lap trinh VB dé viét ma lénh. 

- Cac kiéu di liéu trong VB. 

- Cach khai bdo hang, bién trong VB. 

- Biéu thtic trong VB. 

- Cac cau lénh don cing nhu cdc cau 1énh cé cau tric. 

- ChuOng trinh con trong VB. 

- Bay 160i trong VB. 

Kién thc c6 lién quan: 

- Cach str dung méi truOng phat trién cUa VB. 

Tai li€u tham khao: 


- Microsoft Visual Basic 6.0 va Lap trinh Co sé df liéu - Chuong 4, trang 
49 - Nguyén Thi Ngoc Mai (chU bién), Nha xuat ban Gido duc - 2000. 


MOi truOng lap trinh 


Soan thao chUOng trinh: 


Trong Visual Basic IDE, ctta s6 ma lénh (Code) cho phép soan thao 
chuOng trinh. CUfa sO nay cé m6t s6 chic nang ndi bat: 


e Danh dau (Bookmarks): Chttc nang nay cho phép danh dau cac dong 
1énh cUa chung trinh trong cUfa sO ma lénh dé dé dang xem lai vé 


sau nay. Dé bat tat kha nang nay, chon Bookmarks tl’ menu Edit, 
hoac chon tU thanh céng cu Edit. 
¢ Cac phim tat trong cUta sO ma 1énh: 


Choéuc naéng Phim taét 

Xem cOtia soa Code F7 

Xem cota soa Object Browser F2 

Tim kieam CTRL+F 

Thay thea CTRL+H 

Tim tieap SHIFT+F4 

Tim ng6dic SHIFT+F3 

Chuyean fiean thuti tuic kea tieap CTRL+DOWN ARROW 
Chuyean fean thuti tuic tr66uc fot CTRL+UP ARROW 
Xem fonh nghéa SHIFT+F2 

Cuodn xuoang moat magn hinh CTRL+PAGE DOWN 
Cuodn lean moat magn hinh CTRL+PAGE UP 
Nhafiy vea vo tri tr6d6uc fio CTRL+SHIFT+F2 


Trou vea haau cuta moa-fun CTRL+HOME 


Nedan cuodi moa-fun CTRL+END 


Cac chUc nang tl d6ng: 

¢ Tu d6ng kiém tra cui phap (Auto Syntax Check) 
Néu chuc nang nay khong dugc bat thi khi ta viét mO6t dong ma cé chia 
10i, VB chi hién thi dong chung trinh sai v6i mau dé nhung khong kém 
theo chu thich gi va tat nhién ta c6 thé viét ti€p cdc dong 1énh khac. Con 
khi chUc nang nay duc bat, VB sé cho ta biét m6t sO thong tin vé 160i va 
hién thi con tr6 ngay dong chuOng trinh 160i dé chd ta sUfa. 


e Yéu cau khai bao bién (Require Variable Declaration) 


VB sé thong bao 106i khi mt bién dugc ding ma khong khai bao va sé chi 
ra vi tri cUa bién do. 


[missing resource: .png] 
Hinh III.1: CUta s6 Options 
e GQi nhé ma lénh (Code): 
Kha nang Auto List Members: Tu d6ng hién thi danh sach cac thu6c tinh 
va phuong thttc cla 1 diéu khién hay m6t di tuong khi ta g6 vao tén 


cUa ching. Chon thuGc tinh hay phuong thUfc can thao tac va nhan phim 
Tab hoac Space dé dua no vao chuong trinh. 


[missing resource: .png] 


Hinh III.2 Ctra s6 Code vi kha nang goi nhd Code 


Kiéu df liéu 


Khai niém 


Kiéu dt liéu 1a mOt tap hop cac gid tri ma m6t bién cUa kiéu cé thé 
nhdn va m6t tap hgp cac phép toan cé thé dp dung trén cac gia tri do. 


Cac kiéu dit liéu co sG trong Visual Basic 


Kiéu dG 
liéu 


Boolean 
Byte 


Integer 


Long 


Single 


Double 


Currency 


M6 ta 

GOm 2 gid tri: TRUE & FALSE. 

Cac gid tri sO nguyén tl 0 — 255 

Cac gid tri sO nguyén tl -32768 — 32767 


Cac gid tri sO nguyén tl -2147483648 — 2147483647. 
Kiéu dt liéu nay thuOng duc goi la s6 nguyén dai. 


Cac gid tri sO thUc tU -3.402823E+38 — 
3.402823E+38. Kiéu dt liéu nay con dugdc goi la dé 
chinh xac don. 


Cac gia tri sO thu tl -1.79769313486232E+308 - 
1.79769313486232E+308. Kiéu dif liéu nay dudc goi 
la dO chinh xac kép. 


DG liéu tién té chUa cdc gid tri s6 tl 
-922.337.203.685.477,5808 - 
922.337.203.685.477,5807. 


String Chudi df liéu ttr 0 dén 65.500 ky tu hay ky s6, tham 
chi 1a cac gid tri dac biét nhu A%@. Gia tri kiéu chudi 
duoc dat gitta 2 dau ngoac kép (“”). 

Dt liéu kiéu ngay thang, gid tri duc dat gitta cap 

Date dau ##. Viéc dinh dang hién thi tury thudc vao viéc 
thiét lap trong Control Panel. 


Chtfa mi gia tri cUa cdc kiéu dt liéu khac, ké ca 


Variant 3 
mang. 


Hang sO 


Khai niém 


Hang sO (Constant) 1a gia tri dir li€u khong thay d6i. 


Khai bao hang 

[Public|Private] Const <tén hang> [As <kiéu dt li€u>] = <biéu thtc> 
Trong d6, tén hang duc dat gidng theo quy tac dat tén cUa diéu khién. 
Vi du: 

Const g = 9.8 

Const Num As Integer = 4*5 


Ta co thé ding cUfa s6 Object Browser dé xem danh sach cdc hang cé san 
cua VB va VBA (Visual Basic for Application). 


TruOng hOp tring tén hang trong nhting thu vién khac nhau, ta co thé chi 
ro tham chiéu hang. 


[<Libname>.][<tén m6-dun>.] <tén hang> 


Bién 


Khai niém 


Bién (Variable) 1a ving luu tri? duc dat tén dé chUfa dt liéu tam thoi 
trong qua trinh tinh todn, so sdnh va cac céng viéc khac. 


Bién cé 2 dac diém: 


¢ MOi bién co mOt tén. 
e MOi bién c6 thé chia duy nhat m6t loai df liéu. 


Khai bao 
[Public|Private|Static|Dim] <tén bién> [ As <kiéu dir liéu> ] 


Trong do, tén bién: 1a m6t tén dudc dat gidng quy tac dat tén diéu khién. 
Néu can khai bao nhiéu bién trén m6t dong thi mOi khai bdo cach nhau 
dau phay (,). 


Néu khai bao bién khong xac dinh kiéu dtr liéu thi bién d6 c6é kiéu 
Variant. 

Khai bdo ngam: Day 1a hinh thUc khéng can phai khai béo m6t bién 
truc khi su’ dung. Cach ding nay cé vé thuan tién nhung sé gay mét sO 


sai sot, chang han khi ta danh nham tén bién, VB sé hiéu do 1a m6t bién 
m6i dan dén két qua chuong trinh sai ma rat kh6 phat hién. 


Vidu: 


Dim Num As Long, a As Single 
Dim Age As Integer 


Khai bdo tuOng minh: Dé tranh rac ri nhu da néu G trén, ta nén quy dinh 
rang VB sé bao 10i khi gap bién chua dugc khai bdo bang dong 1énh: 


Option Explicit trong phan Declaration (khai béo) cUa m6-dun. 
Option Explicit chi cé tac dung trén tUing m6é-dun do do ta phai dat dong 
1énh nay trong tUing mé-dun cUa biéu mau, m6-dun 16p hay m6-dun 


chuan. 


Biéu thurc 


Khai niém 


Todn tl’ hay phép toan (Operator): 1a ttr hay ky hi€u nham thuc hién phép 
tinh va xU ly d& liéu. 


Toan hang: 1a gia tri dtr liu (bién, hang...). 


Biéu thtrc: 1a tap hgp cac todn hang va cac toan tUf két hop lai vGi nhau 
theo quy tac nhat dinh dé tinh todn ra mOt gid tri nao do. 


Cac loai phép toan 


1. Cac phép todn s6 hoc: Thao tac trén cac gid tri c6 ki€u di liéu s6. 


Phép Y nghia Kiéu cla d6i s6 Kiéu cla 


toan 

- Phép lay sO d6i 

- Phép cOng hai sO 

- Phép tru hai sO 

= Phép nhan hai sO 

/ Phép chia hai s6 

\ Phép chia lay 
phan nguyén 

Mod Phep chia lay 
phan du 

‘ Tinh liy thtra 


1. Cac phép todn quan hé 


Kiéu sO (Integer, 
Single...) 


Kiéu sO (Integer, 
Single...) 


Kiéu sO (Integer, 
Single...) 


Kiéu sO (Integer, 
Single...) 


Kiéu sO (Integer, 
Single...) 


Integer, Long 


Integer, Long 


Kiéu sO (Integer, 
Single...) 


két qua 


Nhu kiéu 
ddi s6 
Nhu kiéu 
ddi s6 
Nhu kiéu 
ddi s6 
Nhu kiéu 
ddi s6 
Single hay 
Double 


Integer, 
Long 


Integer, 
Long 


Nhu kiéu 
ddi sO 


Day la cdc phép todn ma gia tri tra vé ca chiing 1a m6t gia tri kiéu 


Boolean (TRUE hay FALSE). 


Phép toan Y nghia 


= So sénh bang nhau 


<> So sanh khac nhau 

2 So sanh 16n hon 

< So sdnh nho hon 

== So sanh 16n hon hoac bang 
a= So sanh nho hon hoac bang 


1. Cac phép todn Logic: 1a cdc phép toan tac d6ng trén kiéu Boolean va 
cho két qua 1a kiéu Boolean. Cac phép todn nay bao g6m AND (va), 
OR (hoac), NOT (phu dinh). Sau day 1a bang gia tri cUla cdc phép 


toan: 
Xx Y X AND Y X OR Y NOT X 
TRUE TRUE TRUE TRUE FALSE 
TRUE FALSE FALSE TRUE FALSE 
FALSE TRUE FALSE TRUE TRUE 
FALSE FALSE FALSE FALSE TRUE 


Cau lénh 


MOt cau 1énh (statement) xdc dinh m6t cong viéc ma chuoOng trinh phai 
thurc hién dé xt ly dt liéu da dudc mé ta va khai bao. Cac cau lénh dudc 
ngan cach vGi nhau bdi ky tu xuOng dong. Ky tu xuOng dong bao hiéu két 
thtic mOt cau 1énh. 


Lénh gan 

Cu phap: 

<Tén bién> = <Biéu thUtc> 

Vi du: 

Gia sU ta cé khai bdo sau: 

Dim TodayTemp As Single, MinAge As Integer 

Dim Sales As Single, NewSales As Single, FullName As String 

Cac 1énh sau gan gia tri cho cdc bién trén: 

TodayTemp = 30.5 

MinAge = 18 

Sales = 200000 

NewSales = Sales * 1.2 

Gia sU ngudi ding can nhap ho va tén vao 6 nhap liéu TextBox cé thudc 
tinh Name 1a txtName, cau 1énh duGi day sé luu gid tri cUa 6 nhap liéu 
vao trong bién FullName: 


FullName = txtName.Text 


Luu y: Kiéu df liéu cUa biéu thc (vé phai cUa 1énh gan) phai pht hop 
v6i bién ta can gan tri. 


Lénh ré nhanh If 
e MOt dong 1énh: 

If <diéu ki€n> Then <dong 1énh> 
e Nhiéu dong |énh: 

If <diéu kién> Then 


Cac dong 1énh 


End If 


Trong d6, <diéu kién>: biéu thc ma két qua tra vé kiéu Boolean. 
Y nghia cau lénh: Cac dong 1énh hay dong 1€nh sé du@c thi hanh néu nhu 
diéu kién 1a ding. Con néu nhu diéu kién 1a sai thi cau 1énh ti€ép theo sau 
cau tric If ... Then dugc thi hanh. 

¢ Dang day du: If... Then ... Else 
If <diéu kién 1> Then 


[Khoi lénh 1] 


Elself <diéu kién 2> Then 

[Kh6i lénh 2]... 

[Else 

[Kh6i lénh n]] 

End If 

VB sé kiém tra cac diéu kién, néu diéu kién nao dting thi kh6i lénh 
tuong Ung sé dudc thi hanh. Ngudc lai néu khong c6 diéu kién nao dting 
thi khdi 1@nh sau tl’ khéa Else s@ duc thi hanh. 

Vi du: 

If (TheColorYouLike = vbRed) Then 

MsgBox "You are a lucky person" 

ElseIf (TheColorYouLike = vbGreen) Then 

MsgBox "You are a hopeful person" 

ElseIf (TheColorYouLike = vbBlue) Then 

MsgBox "You are a brave person" 

ElseIf (TheColorYouLike = vbMagenta) Then 

MsgBox "You are a Sad person" 

Else 

MsgBox "You are an average person" 


End If 


Lénh IVa chQn Select Case 

Trong truOng hgp c6 qua nhiéu cdc diéu kién can phai kiém tra, néu ta 
ding cau tric ré nhanh If... Then thi doan 1€nh khéng dudc trong sang, 
kho kiém tra, sta d6i khi c6 sai sot. NguOc lai vGi cau tric Select...Case, 
biéu thUc diéu kién sé duoc tinh toan m6t lan vao dau cau tric, sau dé 
VB sé so sanh két qua vGi tUng tr'uOng hop (Case). Néu bang né thi hanh 
khi 1é6nh trong truOng hop (Case) do. 

Select Case <biéu thttc kiém tra> 

Case <Danh sach két qua biéu thc 1> 

[Kh6i lénh 1] 

Case <Danh sach két qua biéu thc 2> 


[Kh6i lénh 2] 


[Case Else 

[Kh6i lénh n]] 

End Select 

M6i danh sach két qua biéu thtc sé chtra mOt hodc nhiéu gia tri. Trong 
truOng hop cé nhiéu gia tri thi mOi gia tri cach nhau bi dau phay (,). 
Néu cé nhiéu Case cting thda diéu kién thi khdi 1énh cUa Case dau tién 
sé dudc thuc hién. 


Vi du cUa lénh ré nhanh If... Then 6 trén cé thé viét nhu sau: 


Select Case TheColorYouLike 

Case vbRed 

MsgBox "You are a lucky person" 
Case vbGreen 

MsgBox "You are a hopeful person" 
Case vbBlue 

MsgBox "You are a brave person" 
Case vbMagenta 

MsgBox "You are a sad person" 
Case Else 

MsgBox "You are an average person" 
End Select 

Toan tU Is & To 


Toan tl Is: Duc ding dé so sénh <Biéu thuc kiém tra> vGi mét biéu 
thurc nao do. 


Todn tlt To: Ding dé xac lap mién gid tri cUa <Biéu thitc kiém tra>. 
Vi du: 

Select Case Tuoi 

Case Is <18 


MsgBox “Vi thanh nien” 


Case 18 To 30 

MsgBox “Ban da truong thanh, lo lap than di” 
Case 31 To 60 

MsgBox “Ban dang o lua tuoi trung nien” 

Case Else 

MsgBox “Ban da lon tuoi, nghi huu duoc roi day!” 
End Select 


Luu y: Trong vi du trén khong thé viét Case Tuoi < 18. 


Cu tric lap 
Cac cau tric lap cho phép thi hanh mOt kh6i lénh nao d6 nhiéu lan. 
1. Lap khong biét trudc s6 lan lap 
Kh6i lénhDo ... Loop: Day 1a cau tric lap kh6ng xéc dinh tru6c s6 lan 
lap, trong do, s6 lan lap sé dudc quyét dinh bdi mét biéu thUc diéu 
kién. Biéu thUtc diéu kién phai cé két qua 1a True hoac False. Cau triic 
nay c6 4 kiéu: 
Kiéu 1: 
Do While <diéu kién> 
<khdi lénh> Dkién 
Loop 


Dung Sai 


Kh6i lénh sé dugc thi hanh dén khi nao diéu kién khong con ding nla. 
Do biéu thUc diéu kién duoc kiém tra tru’6c khi thi hanh kh6i lénh, do dé 
co thé kh6i lénh sé khong dudc thuc hién m6t lan nao ca. 

Kiéu 2: 

Do 

<kh6i lenh> 

Loop While <diéu kién> 

Kh6i lénh sé dudc thuc hién, sau do biéu thtfc diéu kién duoc kiém tra, 
néu diéu kién con dung thi, khdi l@nh sé dudc thuc hién tiép tc. Do 
biéu thUc diéu kién duoc kiém tra sau, do dé kh6i l€nh sé dudc thuc 
hién it nhat m6t lan. 

Kiéu 3: 

Do Until <diéu kién> 

<khdi lénh> 


Loop 


Ciing tuong tu nhu cau tric Do While ... Loop nhung khac biét 6 ché 1a 
kh6i lénh sé dudc thi hanh khi diéu kién con sai. 


Kiéu 4: 

Do 

<khdi lénh> 

Loop Until <diéu kién> 


Kh6i lénh du@c thi hanh trong khi diéu kién con sai va c6 ft nhat 1a m6t 
lan lap. 


Vi du: Doan lénh dudi day cho phép kiém tra mOt s6 nguyén N cé phai 
la s6 nguyén tO hay khéng? 


Dim i As Integer 
i=2 
Do While (i <= Sqr(N)) And (N Mod i = 0) 
i=it+1 
Loop 
If (i > Sqr(N)) And (N <> 1) Then 
MsgBox Str(N) & “ la so nguyen to” 
Else 
MsgBox Str(N) & “ khong la so nguyen to” 
End If 
Trong d6, ham Sqr: ham tinh can bac hai cua mOt sO 
Lap biét truGc s6 lan lap 

e For... Next 


Day 1a cau tric biét truGc s6 lan lap, ta ding bién dém tang dan hodc 
giam dan dé xac dinh s6 lan lap. 


For <bién dém> = <diém dau> To <diém cudi> [Step <buGc nhay>] 
[kh6i 1énh] 


Next 


Bién dém, diém dau, diém cudi, buc nhay 1a nhUng gid tri sO (Integer, 
Single,.. -). BuGc nhay cé thé 1a 4m hoac duOng. Néu buéc nhay la sé 
4m thi diém dau phai 16n hon diém cuGi, néu khéng kh6i lénh sé khong 
dugc thi hanh. 


Khi Step khéng dudc chi ra, VB sé ding buGc nhay mac dinh 1a mt. 

Vi du: Doan lénh sau day sé hién thi cdc kiéu cht hién c6 cua may ban. 
Private Sub Form_Click( ) 

Dim i As Integer 

For i = 0 To Screen.FontCount 

MsgBox Screen.Fonts(1) 

Next 

End Sub 

Vi du: Tinh N! 


e TextBox: Name:txtNum BuGc 1: Thiét ké chuOng trinh cé giao dién: 


Label: Name: IbIKQ 


e BuGc 2: Su kién Command1_Click dugc xU ly: 


Private Sub Command1_Click() 

Dim i As Integer, n As Integer, Kq As Long 
n= Val(txtNum.Text) 

Kq=1 

Fori=1Ton 

Kq = Kq * i 

Next 

IbIKQ.Caption = Str(Kq) 

End Sub 


e Luu du an va chay chuOng trinh ta dugc két qua nhu hinh dui: 


Sas 
Ss ei Bie is oa 8 a 
| Smo Ota lead | 


t 


Poaria AS oa pHnar:- 


e For Each ... Next 
TUOng tU vong lap For ... Next, nhUng n6 lap kh6i 1énh theo sO phan tl? 
cUa m6t tap cdc d6i tudng hay mOt mang thay vi theo s6 lan lap xac 
dinh. Vong lap nay tién loi khi ta khong biét chinh x4c bao nhiéu phan tt 
trong tap hop. 
For Each <phan tU> In <nhém> 


<khdi lénh> 


Next <phan tU> 
Luu y: 


- Phan tUf trong tap hgp chi c6 thé 1a bién Variant, bién Object, hodc mét 
d6i tuong trong Object Browser. 


- Phan tUr trong mang chi c6 thé 14 bién Variant. 


- Khong ding For Each ... Next vGi mang chUa kiéu tu dinh nghia vi 
Variant khong chtfa kiéu tu dinh nghia. 


ChuOng trinh con 


Khai niém 


Trong nhitng chuong trinh 16n, cé thé cé nhting doan chuong trinh viét 
lap di lap lai nhiéu lan, dé tranh rudm ra va mat thoi gian khi viét 
chuOng trinh ngu0i ta thuOng phan chia chuOng trinh thanh nhiéu 
module, mOi module giai quyét m6t céng viéc nao d6. Cac module nhu 
vay gQi la cdc chuOng trinh con. 


MOt tién Igi khac cUa viéc stf dung chuOng trinh con 1a ta cé thé dé dang 
kiém tra xdc dinh tinh ding dan cUa no truG6c khi rap nOi vao chuong 
trinh chinh va do do viéc xac dinh sai s6t dé tién hanh hiéu dinh trong 
chuOng trinh chinh sé thuan Idi hon. 


Trong Visual Basic, chuOng trinh con cé hai dang 1a ham (Function) va thu 
tuc (Sub). 


Ham khac thu tuc 6 ché ham tra vé cho lénh goi m6t gia tri thong qua tén 
cUa no con thu tUc thi khong. Do vay ta chi ding ham khi va chi khi thoa 
man dOng thdi cdc yéu cau sau day: 


e Ta muOn nhan lai mét két qua (chi mOt ma théi) khi goi chung 
trinh con. 


e Ta can ding tén chuOng trinh con (c6 chUfa két qua) dé viét trong 
cac biéu thtic. 


Néu khong thda man hai diéu kién ay thi ding thu tuc. 


Thu tuc 
1. Khai niém: 


Thu tuc la m6t chuOng trinh con thUc hién mOt hay mOt s6 tac vu nao dé. 
Thu tuc c6 thé c6é hay khéng c6 tham sO. 


1. Khai bao thu tuc 


[Private | Public] [Static] Sub <tén thU tuc> [(<tham sO>[As <Kiéu tham 
sO>])] 


<CAc dong lénh> hay <Cac khai bao> 
End Sub 
Trong do: 


- <Tén thu tuc>: Day 1a m6t tén dudc dat gidng quy tac tén bién, 
hang,. . 


- <tham s6>[: <Kiéu tham s6>]: c6 thé cé hay khéng? Néu cé nhiéu tham 
sO thi mi tham sO phan cach nhau dau phay. Néu khong xac dinh kiéu 
tham s6 thi tham s6 c6 kiéu Variant. 


Dé goi thu tuc dé thuc thi, ta c6 2 cach: 


e <Tén thu tuc> [<Cac tham s6 thuc té>] 
e Call <Tén thu tuc> ([<Cac tham s6 thutc té>]) 


Vi du: Thiét ké chuOng trinh kiém tra xem s6 nguyén N cé phai la s6 
nguyén t6 hay khong? 


e BuGc 1: Thiét ké chuong trinh c6 giao dién 


[missing resource: .png] 
TextBox: Name:txtNum 
e BuGc 2: Viet thU tuc KtraNgTo trong phan ma lénh cUa Form 
Sub KTraNgTo(N As Integer) 
Dim i As Integer 
i=2 
Do While (i <= Sqr(N)) And (N Mod i <> 0) 
i=i+l1 
Loop 
If (i > Sqr(N)) And (N <> 1) Then 
MsgBox Str(N) & " la so nguyen to" 
Else 
MsgBox Str(N) & " khong la so nguyen to" 
End If 
End Sub 


e BuGc 3: XU ly su kién Command1_Click; trong thu tlc xU ly su 
kién nay ta c6 goi thU tuc KtraNgTo nhu sau: 


Private Sub Command1_Click() 
KTraNgTo Val(txtNum.Text) 

‘ Call KtraNgTo(Val(txtNum.Text)) 
End Sub 


e BuGc 4: Luu du an va chay chuong trinh. Ta du@c két qua sau: 


ia, Tinh Giai Thua 


Trong vi dU trén thay vi goi thU tuc bang 10i goi: 
KTraNgTo Val(txtNum.Text) 
Ta co thé str dung cach khac: 


Call KtraNgTo(Val(txtNum.Text)) 


Ham 

1. Khai niém 
Ham (Function) 14 m6t chung trinh con cé nhiém vu tinh todn va cho ta 
mot két qua. Két qua nay duQc tra vé trong tén ham cho 10i goi no. 

1. Khai bao ham 


[Private | Public | Static] Function <Tén ham> [(<tham sO>[As <Kiéu tham 
sO>])]_ 


[As <KIEU DU LIEU>] 

<Céc dong lénh> hay <Cac khai bao> 

End Function 

Trong do: 

- <Tén ham>: Day 1a m6t tén duc dat gidng quy tac tén bién, hang... 

- <tham s6>[: <Kiéu tham s6>]: c6 thé cé hay khéng? Néu cé nhiéu tham 
sO thi mi tham sO phan cach nhau dau phay. Néu khong xac dinh kiéu 
tham sO thi tham s6 c6 kiéu Variant. 


- <KIEU DU LIEU>: Két qua tra vé cla ham, trong trudng hop khéng 
khai bao As <kiéu dt li€u>, mac dinh, VB hiéu kiéu tra vé kiéu Variant. 


Khi goi ham dé thu thi ta nhan dudc m6t két qua. Can cht y khi goi 
ham thu thi ta nhan dudc m6t két qua c6 kiéu chinh 1a kiéu tra vé cua 
ham (hay 1a kiéu Variant néu ta khéng chi r6 kiéu tra vé trong dinh nghia 
ham). Do d6 10i goi ham phai 1a thanh phan cUa m6t biéu thu. 

Cu phap goi ham thu thi: <Tén ham>[(tham s6)]. 

Vi du: Tinh N! 


e TextBox: Name:txtNum BuGc 1: Thiét ké chuOng trinh cé giao dién: 


Label: Name: IbIKQ 


¢ BuGc 2: Thém m6t ham vao cUfa sO ma 1énh cua Form 
Function Giaithua(N As Integer) As Long 
Dim i As Integer, Kg As Long 
Kq=1 
Fori=1Ton 
Kq = Kq * i 
Next 
Giaithua = Kq 
End Function 
Private Sub Command1_Click() 
Dim n As Integer 
n = Val(txtNum. Text) 
IbIKQ.Caption = Str(Giaithua(n)) 
End Sub 


Luu du 4n va chay chuong trinh ta duoc két qua nhu hinh dusdi: 


m. Kiem tra so nguyn to 


Luu y: Do khi goi ham ta nhan dudc m6t két qua nén bén trong phan 
dinh nghia ham, truGc khi két thtic ta phai gan két qua tra vé cua ham 
thong qua tén ham (trong vi du trén 1a dong 1@nh Giaithua = Kq) 


Truy xuat dtr liéu trong Visual Basic 


Cac khai niém 
e Module: 


- M6t Ung dung don gian co thé chi cé m6t biéu mau, lic dé tat ca ma 
1€nh cla Ung dung do dudc dat trong cUfa s6 ma 1énh cla biéu mau dé 
(goi la Form Module). Khi (tng dung duc phat trién 16n én, chiing ta cé 
thé cé thém m6t s6 biéu mau nla va hic nay kha nang lap di lap lai 
nhiéu lan cua m6t doan ma 1énh trong nhiéu biéu mau khac nhau 1a rat 
16n. 


- Dé tranh viéc lap di lap lai trén, ta tao ra m6t Module riéng ré chUfa cac 
chuOng trinh con dUQc dung chung. Visual Basic cho phép 3 loai Module: 


Module biéu mau (Form module): di kém vGi mi m6t biéu mau 1a mét 
module cla biéu mau dé dé chtta ma 1énh cUa biéu mau nay. VGi moi 
diéu khién trén biéu mau, module biéu mau chUa cac chung trinh con 
va ching san sang duc thuc thi dé dap Ung lai cdc su ki€n ma ngudi sU 
dung Ung dung tac d6ng trén diéu khién. Module biéu mau dugc luu 
trong may tinh du6i dang cdc tap tin c6 dudi 1a *.frm. 


Module chuan (Standard module): Ma lénh khéng thudc vé bat cl m6t 
biéu mau hay m6t diéu khién nao sé du@c dat trong mét module dac 
bi€t goi 1a module chudn (duGc luu vGi dudi *.bas). Cac chUOng trinh con 
duoc lap di lap lai dé dap Ung cdc su’ kién khac nhau cUa cac diéu khién 
khac nhau thuOng du@c dat trong module chudn. 


Module 16p (Class module): dugc str dung dé tao cac diéu khién dudc 
goi thUc thi trong mOt Ung dung cu thé. MOt module chuan chi chUfa ma 


1énh nhung module 16p chUfa ca ma 1énh va dt liéu, chting cé thé dudc 
coi 1a cdc diéu khién do ngudi lap trinh tao ra (dudc lu vGi dudi *.cls). 


e Pham vi (scope): xdc dinh s6 lugng chuoOng trinh co thé truy xuat 
m6t bién. M6t bién sé thudc mGt trong 3 loai pham vi: 


Pham vi bién cuc bé. 
Pham vi bién module. 


Pham vi bién toan cuc. 


Bién toan cUc 
e Khai niém: Bién toan cUc 1a bién cé pham vi hoat dOng trong toan 
bd Ung dung. 
¢ Khai bao: 


Global <Tén bién> [As <Kiéu dt liéu>] 


Bién cc b6 
e Khai niém: Bién cuc bé 1a bién chi cé hiéu lUc trong nhting chuong 
trinh ma ching dugc dinh nghia. 
e Khai bao: 
Dim <Tén bién> [As <Kiéu df liéu>] 


e Luu y: 


Bién cuc b6 dugc dinh nghia bang tl khda Dim sé két thtic ngay khi 
viéc thi hanh thu tlc két thiic. 


Bién Module 
e Khai niém: Bién Module 1a bién dugc dinh nghia trong phan khai 
bdo (General|Declaration) cua Module va mac nhién pham vi hoat 
dOng cUa né 1a toan b6 Module ay. 
e Khai bao: 


- Bién Module dugc khai bao bang tlr khéa Dim hay Private & dat trong 
phan khai bao cUla Module. 


Vi du: 

Private Num As Integer 

- Tuy nhién, cdc bién Module nay cé thé du@c sur dung bdi céc chuOng 
trinh con trong cdc Module khac. Mun thé chting phai duc khai bao 1a 
Public trong phan Khai bdo (General|Declaration) cua Module. 

Vi du: 

Public Num As Integer 


Luu y: Khong thé khai bdo bién v6i tr khéa 1a Public trong chuong trinh 
con. 


Truyén tham s6 cho chuOng trinh con 
e Khai niém 


MOt chuong trinh con déi lic can thém m6t vai théng tin vé trang thai 
cUa doan ma lénh ma no dinh nghia dé thuc thi. Nhting thong tin nay 1a 
cac bién duc truyén vao khi goi chUOng trinh con, cdc bién nay goi la 
tham sO cUa chUOng trinh con. 


Cé hai cach dé truyén tham s6 cho chuong trinh con: Truyén bang gia tri 
& truyén bang dia chi. 


¢ Truyén tham s6 bang gia tri 
VGi cach truyén tham s6 theo cach nay, mi khi m6t tham s6 dugc truyén 
vao, mot ban sao cua bién do dugc tao ra. Néu chuOng trinh con co thay 
d6i gid tri, nhUtng thay d6i nay chi tac dOng én ban sao cUa bién. Trong 
VB, tli khéa ByVal duc ding dé xac dinh tham s6 dugc truyén bang gia 
tri. 
Vi du: 
Sub Twice (ByVal Num As Integer) 
Num = Num * 2 
Print Num 
End Sub 
Private Sub Form_Click(Q) 
Dim A As Integer 
A=4 
Print A 
Twice A 
Print A 
End Sub 
Két qua thuc hién cUa doan chuOng trinh trén: 
4 


8 


¢ Truyén tham s6 bang dia chi 
Truyén tham s6 theo dia chi cho phép chuOng trinh con truy cap vao gia 
tri gOc cUa bién trong bO nh@. Vi thé, gid tri cua bién c6 thé sé bi thay 
doi boi doan ma lenh trong chUOng trinh con. Mac nhién, trong VB6 cac 
tham sO dudc truyén theo dia chi; tuy nhién ta cé thé chi dinh m6t cach 
tuOng minh nho vao tU khéa ByRef. 
Vi du: 
Sub Twice (Num As Integer) 
Num = Num * 2 
Print Num 
End Sub 
Private Sub Form_Click(Q) 
Dim A As Integer 
A=4 
Print A 
Twice A 
Print A 
End Sub 
Két qua thuc hién cUa doan chuOng trinh trén: 
4 


8 


Bay 106i trong Visual Basic 

Cac thao tac bay cac 16i thUc thi cua chuOng trinh 1a can thiét d6i vGi cdc 
ngon ng lap trinh. Ngudi lap trinh khé kiém soat hét cdc tinh hu6ng cé 
thé gay ra 16i. Chang han ngudi ta kho c6 thé kiém tra chat ché viéc 
ngudi ding dang chép di liéu tu’ dia mém (hay CD) khi chting khong cé 
trong 6 dia. Néu cé cac thao tac bay 16i 6 day thi ti€n cho ngudi lap trinh 
rat nhiéu. 


Visual Basic cting cung cap cho ta mOt s6 cau tric dé bay cac 16i dang 
thuc thi. 


Cu phap: 

Dang 1: 

On Error GoTo <Tén nhan> 

<CAc cau lénh cé thé gay ra 10i> 

<Tén nhan>: 

<CAc cau 1énh xt ly 16i> 

Y nghia: 

- <Tén nhan>: 14 mOt tén dudc dat theo quy tac cUa mOt danh biéu. 

- Néu mot 1€nh trong <Cac cau 1€nh cé thé gay ra 16i> thi khi chuong 
trinh thUc thi dén cau lénh d6, chuOng trinh sé tu dOng nhay dén doan 
chuOng trinh dinh nghia bén dui <Tén nhan> dé thuc thi. 

Dang 2: 

On Error Resume Next 


<CAc cau lénh cé thé gay ra 10i> 


Y nghia: 


- Néu m6t lénh trong <Cac cau lénh c6 thé gay ra 16i> thi khi chuong 
trinh thuc thi dén cau 1énh d6, chUOng trinh sé tu dOng bd qua cau 1énh 
bi 16i va thUc thi cau 16nh ké tiép. 


Cac kiéu dt liéu c6é cau tric a 
Chuong nay gidi thiéu vé cac cau trlic dd liéu trong VB. Viéc nam bat 
dudc cac van dé nay gitip cho viéc t6 chUc dU liéu khi viét chuong trinh 
VB dugc hgp ly hon. 

Hoc xong chuOng nay, sinh vién phai nam bat dugc cac van dé sau: 

- SU dung kiéu dif liéu chudi. 

- SU dung kiéu ngay thang. 

- Kiéu dOng (Variant) 

- Kiéu mang 

Kién thc c6 lién quan: 

- Cac cau tric lap trinh trong VB. 

Tai li€u tham khao: 
http://www.vovisoft.com/VisualBasic/VB6Chaptero.htm 


http://www.vovisoft.com/VisualBasic/VB6Chapter6.htm 


Kiéu chudi ky tu (String) 


Khai bao 
Cé hai dac ta chudi ky tu’ theo cui phap nhu sau: 


- String * <Chiéu dai> Chi ra mt chudi ky tu’ c6é d6 dai c6 dinh 1a bao 
nhiéu ky tu’. Trong truOng hp gia tri thc cUa chudi cé d6 dai ngan hon 
dO dai khai bao thi d6 dai cUa chudi thi m6t s6 khoang trang dudc thém 
vao cho dU d6 dai thuc. Trong trudng hop gid tri thc cUla chudi cé dé dai 
16n hon dé dai khai bdo thi sé cat bét cdc ky tu du thtra bén phai. M6t 
chudi khong cé ky tu’ nao (d6 dai bang 0) goi la chu6i r6ng. 


- String: Khi khéng chi ra chiéu dai ti da cUia chudi thi mac nhién chu6i 
c6 chiéu dai t6i da 1a 65.500 ky tu. 


Vi du: 

Dim Name As String * 30, Class As String * 10 
Dim A As String 

Cac ham x ly chudi 


¢ Ghép chu6i: cho phép ghép 2 hay nhiéu chu6i lai vGi nhau nh phép 
toan &. 


Vi du: 
Dim FirstWord As String, SecondWord As String 
Dim Greeting As String 
FirstWord = "Hello" 
SecondWord = "World" 
Greeting = FirstWord & SecondWord 
' Greeting bay gid 1a "HelloWorld" 
¢ Len: tra vé chiéu dai m6t chudi du@c chi dinh. 
Vi du: 
Greeting = "Hi John!" 
Dim iLen As Integer 


iLen = Len(Greeting) ' iLen bay gid bang 8 


° Left: Trich chudi con tl’ phan dau chuOi g6c Left (String, [length]. 
e Right: Trich chuOi con tU phan dudi chu6i g6c Right (String, 
[length]) - - 
e Mid: Trich chudi con tU gitta chudi g6c 
Mid(String, Start As Long, [length]) 
Vidu 1: 
Dim Today As String, StrDay As String, StrMonth As String 
Dim StrYear As String, StrMonthYear As String 
Today = "24/05/2001" ' Lay ra 2 ky tu’ tt bén trai cUa chudi TodayStrDay 
= Left(Today,2) ' StrDay bay gid bang "24" Lay ra 4 ky tu tu bén phai 
cUa String TodayStrYear = Right(Today,4) ' StrYear bay gid bang "2001" 
Lay ra 2 characters bat dau ttr ky tu tht? tu’ cla chudi 
‘ Today, ky tu dau tién tU bén trai 1a th’ nhatStrMonth = Mid(Today,4,2) ' 
StrMonth bay gid bang "05" Lay ra phan cén lai bat dau tu’ ky tu’ 4 cua 
chudi TodayStrMonth Year = Mid(Today,4) ' StrMonthYear bang “05/2001" 
Vi du 2: 
Today = "24/05/2001" 
' Thay thé character thf 3 cUa Today bang "-" 
Mid(Today,3,1) = "-" 
' Thay thé 2 ky tu’ bat dau tl ky tu’ 4 cUla Today bang "10" 
Mid(Today,4,2) = "10" 
' Thay thé character thf 6 cUa Today bang "-" 


Mid(Today,6,1) = "-" ' Today bay gid bang "24-10-2001" 


e InStr: Tim chui con trong chudi g6c. Néu ham InStr tra vé 0, nghia 
la kh6ng tim thay. 


Cu phap: InStr([start,] string1, string2 [, compare]) 

Trong do: 

- Start: Xac dinh vi tri trong chudi bat dau viéc tim kiém. Néu gia tri la 
Null thi sé bat dau tt’ dau chudi. Néu nhu tham sO Compare cé dac ta thi 
bat budc phai khai bao tham s6 Start. 

- String1: Biéu thttc chudi dé so sanh. 

- String2: Chudi can tim. 

- Compare: Xac dinh kiéu so sanh chudi. 

Gia tri: vbTextCompare, vbBinaryCompare. 

Vidu 1: 

Dim myString As String, Position As Integer 

myString = "The *rain in Spain mainly..." 

Position = Instr(myString,"*") ' Position sé 1a 5 

Néu trong myString khong cé dau "*" thi Position sé bang 0 

Vi du 2: 

Dim KeyValuePair As String, Key As String 

Dim Value As String 

KeyValuePair = "BeatlesSong= Yesterday" 


Pos = Instr(Key ValuePair, "=") 


Key = Left(KeyValuePair, Pos-1) 
Value = Mid(KeyValuePair, Pos+1) 
¢ Replace: tim va thay thé chudi. 
Cu phap: 
Replace(Expression, find, replace[, start[, count[, compare]]]) 
Trong do: 
- Expression:Biéu thtic chudi chtfa chui can thay thé. 
- find:Chu6i can tim. 
- replace: Chui thay thé chudi tim dugc. 
- start: TUOng tu nhu ham InStr. 
- count: Xdc dinh s6 lan thay thé. Mac dinh 1a 1. 
- compare: TUOng tU nhu ham InStr. 


e LTrim (RTrim): cat tat ca céc khoang trang bén trai (bén phai cla 
chuOi) 


Cu phap:LTrim(string) 
RTrim(string) 

¢ UCase: d6i chudi sang chudi g6m cac ky tu’ la cht hoa. 
Cu phap:UCase(string) 


e Asc: cho ma Ascii cua m6t ky tu. 
e Chr: tra vé ky tu Ung vdi ma Ascii duc chi dinh. 


Dim ASCIINumberA As Integer, CharB As String * 1 


Dim StrFive As String * 1 
ASCIINumberA = Asc("A") 'ASCIINumberA bay gid bang 65 
CharB = Chr(66) 
StrFive = Chr(Asc("0") + 5) ' ta c6é digit "5" 
e InstrRev: tuOng tu nhu InStr nhung viéc tim kiém dudc tién hanh tr 
phai sang. ; 
¢ Val: Ham d6i chudi sang sO. 
e Str: Ham d6i sO sang chu0i. 
Kiéu ngay thang (Date) 
- La kiéu ma cac bién ca n6 chUa gia tri ngay thang. 


- Dé cho VB biét dt liéu 1a ki€u Date ta can dat gitta hai dau # (hoac 
cap ia 3 


Vi du: 
Dim D As Date 


D = #01/02/98# ‘ Hay “01/02/98” 
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Hinh IV.1 H6p thoai xac lap kiéu ngayNéu hiéu theo kiéu ngudi My, 
day la ngay 2 thang giéng nam 1998, con néu theo kiéu Anh thi day 1a 
ngay 1 théng hai ndm 1998. Tuy nhién, dinh dang ngay thang hién thi phu 
thu6c vao quy dinh cua Windows. 


- H6p thoai hinh IV.1 hién thi khi ta chon Regional Setting trong cla s6 
Control Panel cua Windows, no cho phép quy dinh kiéu ngay thang tity 


thuOc céch ma ngudi ding quy dinh. VB xu ly ngay thang theo kiéu MY, 
nhung néu may hién thi theo kiéu Anh thi n6 van hién thi theo kiéu Anh. 


- Ham Now: tra vé ngay gid hién tai. 

Vi du: Dung ham Now & Format: 

MsgBox "NOW IS " & Format (Now, "ddd dd-mmm-yyyy hh:nn:ss") 
's@ hién thi 


NOW IS Tue 05-Oct-2004 16:15:53 


Cac loai s6 


¢ Dé chuyén d6i mt chudi ra s6 ta c6 cdc ham Val, CInt, CSng. 
Ngu@c lai dé chuyén d6i tl s6 sang chuOi ta ding CStr, Str. 


Vi du: 

Dollars = "500" 

ExchangeRatePerDollar = "7000" 

temp Value= Val(Dollars) * Val(ExchangeRatePerDollar) 
VNDong = CStr(temp Value) 

MsgBox "Amount in VN Dong is " & VNDong 

Vi du: 


Dollars = "500.0" ExchangeRatePerDollar = "7000.0""Diing ham CSng dé 
d6i chu0i ra Singletemp Value = CSng(Dollars) * 
CSng(ExchangeRatePerDollar)'Diing ham Format dé cé cdc dau phay 6 
ngan va triéu 


‘va phai c6é 2 ch s6 sau dau cham thap phan. VNDong = Format 
(temp Value, "#,#4##,####.00")MsgBox "Amount in VN Dong is " & 
VNDong 

e Round: bd bét mét s6 chi s6 sau dau cham thap phan 
Vi du: 
Round (12.3456789, 4 ) 


chi gif lai 4 con sO sau dau cham thap phan va cho ta 12.3457 

Kiéu Object 

Bién kiéu Object chUfa m6t dia chi 4 Byte trdé dén d6i tuong trong Ung 
dung hién hanh hoac cac ting dung khac. Ding lénh Set dé chi ra d6i 
tuOng cu thé. 

Dim ObjDb As Object 

Set ObjDb = OpenDatabase("d:\tqdinh\thu.mdb") 


Khi khai bdo bién d6i tugng, ta nén chi ra tén 16p tuOng minh, chang han 
nhu TextBox thay vi Control, Ung dung cUa ta sé chay nhanh hon. 


Ta c6 thé xem danh sach cac I6p co san trong cUta s6 Object Browser. 


Kiéu Variant 


Bién kiéu Variant c6 thé chUfa moi kiéu dt liéu ké cd ki€u mang, kiéu 
do ngudi ding dinh nghia nhung ngoai trtr ki€u chu0i cé dO dai c6 dinh . 
Bién kiéu Variant c6 thé nhan cac gia tri dac biét nhu Empty, Nothing, 


Error, Null. Ta c6 thé xac dinh kiéu dt liéu cUa bién Variant bang cac str 
dung ham VarType hoac ham TypeName. 


Ham VarType ding dé kiém tra kiéu dt liéu 


Hang 


vbEmpty 
vbNull 
vbInteger 


vbLong 


vbSingle 


vbDouble 


vbCurrency 
vbDate 
vbString 
vbObject 
vbError 
vbBoolean 


vb Variant 


vbDataObject 


vbDecimal 


14 


Dién gidi 

Khong chUa gi ca 

DU liéu khéng hop 1é 

Dt liéu kiéu Integer chudn 
Dt liéu kiéu Long Integer 


Dt liéu kiéu dau chaém d6ng 
Single 


Dt liéu kiéu dau chaém d6ng 
Double 


Kiéu Currency 

Kiéu Date 

Kiéu String 

Kiéu Object 

C6 mét d6i tudng 16i 
Kiéu gid tri Boolean chuan 
Kiéu Variant 


Kiéu DAO chuan (data access 
object) 


Gia tri thu6c hé thap phan 


vbByte 17 Kiéu Byte 
vbUserDefinedType 36 Kiéu do ngudi ding dinh nghia 


vbArray 8192 Kiéu mang 


MOt sO cht y khi ding bién kiéu Variant: 

- Néu mu6n thi hanh cdc ham todn hoc, Variant phai chUa gia tri kiéu s6. 
- Néu mu6n n6i chu6i, ding toan tUr & thay vi todn tUr +. 

Gia tri Empty: 


- Day 1a gid tri dac biét xudt hién khi mOt bién chua dugc gan tri. Ta 
ding ham IsEmpty dé kiém tra gia tri Empty. 


- Gia tri Empty bién mat khi c6 m6t gia tri bat ky dudc gan cho bién 
Variant, dé trd vé gid tri Empty, ta gan tu khod Empty cho bién Variant. 


Gia tri Null: Bién Variant chUfa gia tri Null trong trudng hop nhting Ung 
dung co sO dtr liéu thé hién khéng cé dif liéu hodc dt liéu khéng xac 
dinh. 


Gia tri Error: Trong mOt bién kiéu Variant, Error 1a mOt gia tri dac biét 
cho biét da cé m6t 106i da xay ra bén trong thu tuc. 


Vi du: 

Private Sub cmdShowDataTypes_Click() 
Dim sMess As String 

Dim vVariant As Variant 

vVariant = "Xin chao" 'String 


sMess = VarType(vVariant) & vbCrLf ' xuOng dong & vé dau dong 


vVariant = 25 ' Integer 

sMess = sMess & VarType(vVariant) & vbCrLf 
vVariant = True ' Boolean 

sMess = sMess & VarType(vVariant) & vbCrLf 
‘Date 

vVariant = #1/1/2001# 'trong cap dau # 

sMess = sMess & VarType(v Variant) 

MsgBox sMess 

End Sub 


Khi chay chuong trinh két qua 1a: 
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Kiéu Mang 

Khai niém 

- Mang 1a tap hop cac phan tU c6 cng mt kiéu. 

- Ding mang sé lam cho chuoOng trinh don gian va gon hon vi ta co thé 
su dung vong lap. Mang sé co bién trén va bién du6i, trong d6 cac thanh 
phan cUa mang 1a lién ti€p trong khoang gilfa hai bién nay. 


- C6 hai loai bién mang: mang cé chiéu dai cO dinh va mang c6 chiéu dai 
thay d6i hic thi hanh. 


Khai bao 
e Mang cé chiéu dai cO dinh: 
Dim <Tén bién mang>(<Kich thuGc>) [As <Kiéu>] 


Ltic nay phan tr dau tién c6 chi s6 14 0 & phan tt? cudi cting cé chi s6 1a 
<Kich thu6c>. 


Dim <Tén bién mang>(<Chi s6 dau> To <Chi s6 cudi>) [As <Kiéu>] 
Vi du: 
' Khai b4o mOt bién mang 15 phan tU kiéu Integer 
Dim Counters(14)As Integer 
' Khai bao mOt bién mang 21 phan tUr ki€u Double 
Public Sums(20)As Double 
' Khai bao m6t bién mang 10 phan tU kiéu chudi ky tu 
Dim List (1 To 10) As String * 12 
- Ham UBound tra vé bién trén cua mOt mang. 
- Ham LBound tra vé bién dui cua m6t mang. 
Vi du: 
UBound(List) sé tra vé gia tri 1a 10. 
LBound(List) sé tra vé gia tri 1a 1. 
e Luuy: ta cé thé khai béo mOt mang nhiéu chiéu nhu sau 


Dim Multi3D (3, 1 To 10, 9) As Double 


Khai bdo nay tao ra mOt mang 3 chiéu v6i kich thuGc 4 x 10 x 10. 
e Mang d6ng: 


- Day 1a mang cé kich thuGc thay d6i, dé 14 mOt trong nhting uu diém 
cUa mang dOng vi no gitip ta ti€t kiém tai nguyén hé th6ng. Ta co thé str 
dung m6t mang cé6 kich thuGc 16n trong mOt thOi gian nao dé rdi xod bd 
dé tra lai ving nhG cho hé th6ng. 


- Khai bao mOt mang dOng bang cach cho no mét danh sach khéng theo 
chiéu nao ca. Cui phap: Dim <Tén mang> () [As <Kiéu>] 


Vi du: 

Dim DynArray() As Integer 

Sau do ta co thé cap phat s6 phan tt that su’ bang 1€nh ReDim. 
ReDim <Tén mang>(N) ' Trong d6 N 14 mOt biéu thUc kiéu Integer. 


ReDim ding dé xac dinh hay thay d6i kich thuéc cUla m6t mang dOng. Ta 
c6 thé ding ReDim dé thay d6i s6 phan tUr, s6 chiéu cua mOt mang 
nhiéu lan nhung khong thé thay d6i kiéu di li€u cua mang ngoai trv 
kiéu mang 1a kiéu Variant. 


M6i lan goi ReDim tat ca cac gia tri chUfa trong mang sé bi mat. VB 
khdi tao lai gia tri cho ching (Empty d6i vGi mang Variant, 0 cho mang 
kiéu s6, chudi rong cho mang chudi hoac Nothing cho mang cac d6i 
tung). Nhung d6i khi ta mu6n tang kich c6 cua mang nhung khong 
muOn lam mat dtr liéu, ta ding ReDim di kém vdi ttr khod Preserve. Ta 
xem vi du duGi day: 


ReDim Preserve DynArray (UBound(DynArray) +10) 
Tuy nhién chi c6 bién trén cUa chiéu cudi cing trong mang dugc thay d6i 


khi ta ding Preserve. Néu ta c6 tinh thay d6i chiéu khac hodc bién du6i 
thi VB sé bao 160i. 


MO6t s6 thao tac trén mang 
e Truy xuat tling phan tl trong mang: <Tén mang>(<Vi tri>) 
¢ Sao chép mang: DOi vGi VB6, ta cé thé gan m6t mang cho mot 
mang khac, hoac két qua tra vé cUa mOt ham cé thé 1a mOt mang. 
Vi du: 
Sub ByteCopy (old () As Byte, New () As Byte) 
New = old 
End Sub 
Tuy nhién, cach nay ciing chi 4p dung dudc cho mang khai bdo d6ng ma 
thdi. Khi gan bién, cé mt sO quy ludt ma ta can lu y: Do 1a quy luat vé 


kiéu df liéu va quy luat vé kich thuGc va s6 chiéu cUa mang. 


L6i khi gan mang cé thé xay ra hic bién dich hodc khi thi hanh. Ta c6 thé 
thém bay 16i dé dam bao rang hai mang 1a tuong thich truGc khi gan. 


e Mang 1a két qua tra vé cUa ham. Chang han nhu: 


Public Function ArrayFunction (b As Byte) As Byte() 


Dim x(2) As Byte 
x(0) =b 
x(1)=b+2 
x(2)=b+b 


ArrayFunction = x 
End Function 


Khi goi ham tra vé mang, bién gif gi tri tra vé phai la m6t mang va cé 
kiéu nhu kiéu cUa ham, néu kh6ng no sé bao 160i "khong tuong thich 


kiéu". 


Kiéu do ngudi ding dinh nghia - Kiéu m4u tin 
Cu phap: 

Type <tén ki€éu> 

<Tén truOng 1> : <Kiéu trudng 1> 


<Tén truOng 2> : <Kiéu truOng 2> 


<Tén truOng n> : <Kiéu truOng n> 

End Type 

Vi du: 

Type TEmployee 

Fullname As String 

Salary As Single 

Age As Integer 

End Type 

Chiing ta vUa dinh nghia mt kiéu dt li€éu mdi cé tén 14 TEmployee. Kiéu 
nay c6 nét tuong tu nhu' mOt Idp. VE mat chUic nang, ca hai 1a nhu' nhau, 
nhung m6t 16p cé thé chUfa trong DLL va san sang cho viéc ding chung 
vGi cac Ung dung khac, trong khi d6 kiéu dt li€u do ngudi ding dinh 


nghia phai dudc khai bao lai trong tling du an. Do vay, kiéu 6p cé nhiéu 
mat tién loi hon. 


Cach truy xuat ting truOng cUa kiéu mau tin: 

<Tén bién mau tin>.<Tén trudng> 

Vi du: Gia st? ta cé khai bao bién sau: 

Dim e As TEmployee 

Ta c6 thé gan: 

e.Fullname = “Nguyen Van An” 

e.Salary = 300000.00 

e.Age = 26 

Cau lénh With: 

- Dudc str dung dé viét gon hon khi thao tac v6i dtr liéu ki€éu mau tin. 
- Cu phap: 

With <Tén bién mau tin> 

[ Truy xuat dén ttmg trudng cUa mau tin theo dang: 
.<Tén truong> 

] 

End With 

Vi du: Dim e As TEmployee 

Ta co thé gan: 

With e 


.Fullname = “Nguyen Van An” 


Salary = 300000.00 
Age = 26 


End With 


Thiét ké biéu mau ding cac diéu khién 

Muc tiéu: Chuong nay g6m cac bai tap nham rén luyén cho sinh vién céc 
thao tac can thiét cho phép thiét ké cdc Ung dung don gian trong moi 
truOng lap trinh Visual Basic cing nhu m6t s6 ky nang lap trinh co ban 
khi lam viéc vGi Visual Basic. 

Hoc xong chuOng nay, sinh vién phai nam bat dugc cac van dé sau: 

- SU dung cac diéu khién dé thiét ké giao dién trong Visual Basic. 

- Van dung cac cau tric lap trinh trong Visual Basic dé viét ma 1énh. 

- SU dung m6t sO cau tric dt liéu trong Visual Basic. 

Kién thc c6 lién quan: 

- Giao trinh “Visual Basic”; Chuong 1, 2, 3, 4, 5. 

Tai li€u tham khao: 

- Visual Basic 6 Certification Exam Guide - Chapter 1, Page 1; Chapter 2, 
Page 41; Chapter 4, Page 89 - Dan Mezick & Scot Hillier - McGraw-Hill - 
1998. 


SU DUNG MOT SO DIEU KHIEN 
Bai tap co huGng dan 
Bai tap 11-1 


THAO TAC TREN LISTBOX 


Buc 1: Tao thu muc Basic\Btl-1. Tao m6t du an mdi kiéu Standard 
EXE, lUu vao trong thu’ mUc trén. 


BuGc 2: Thém 2 List Box va m6t Button vao form (hinh 1). Nhan dip lén 
form dé m6 ra cUfa sO Code, nhap caéc doan ma sau trong su kién 


Form_Load: 
Form1.List1.AddItem “Thing 3” 
Form1.List1.AddItem “Thing 2” 


Form1.List1.AddItem “Thing 1” 


oo re 
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Project - Project! 


Hinh 1.1: Thao tac vGi List Box 

Buc 3: Chay Ung dung bang cach chon Run/Start. List1 hién thi 3 phan 
tU va thém vao 6 buGc 2. Cham dttt chuong trinh bang céch chon 
Run/End trén menu dé tré vé mdi trudng soan thao. 


BuGc 4: Nhap dtip lén Button Command! dé hién thi su’ kién Click cla 
Command. 


Bu6c 5: Muc dich cUa Command] 1a chuyén nhting phan tl’ dudc chon 
tl List1 sang List2. Thém doan mA sau vao thu tuc sU kién Click cua 
Command1: 


‘Kiem tra neu mot phan tu duoc chon 
If Form1.List1.ListIndex = -1 Then Exit Sub 


'Chep cac phan tu duoc chon tu List1 sang List2 


Form1.List2.AddItem Form1.List1.List(Form1.List1.ListIndex) 

Butc 6: Chay Ung dung. Nhap phan tv tht? nhat cUa List1, sau d6 nhap 
Command1. Diéu gi xay ra? Phan tr dudc chon cUa List1 phai dudc 
hién thi bén List2. Cham dit Ung dung va tr vé mi trudng soan thao. 
BusGc 7: Tim trong phan tro gitip cdc thu6c tinh sau cUa ListBox: 
oListCount 

oList 

oListIndex 

Buc 8: Tim trong phan trd gitip cdc ham sau cUa ListBox: 

oAddItem 

oRemoveltem 

oClear 

Bu@Gc 9: Tim trd gitip cho lénh VB: 

Exit Sub 


Bu6Gc 10: Doan ma trong thu tuc Command1_Click thuc hién thao tac 
chép phan tt? tu mOt ListBox sang mOt ListBox khac. Bay gid ta lam 
ngug@c lai: loai bo phan tUf trong List1. Dé lam diéu nay ta nhap dtp lén 
Command1 va thém dong code sau vao cui thU tuc: 


'Xoa phan tu duoc chon trong List1 
Form1.List1.Removeltem Form1.List1.ListIndex 


BuGc 11: Chay chuong trinh va chon phan tt th nhat trong List1. Diéu 
gi xay ra? 


BuGc 12: Néu khéng chon phan ttf nao trong List1, nhap Command1. 
Diéu gi xay ra? Tai sao? 


BuGc 13: Ta da cé mOt button ding dé chuyén cac phan ttf duc lua 
chon tU trai sang phai (List1 sang List2), vGi button con lai ta sé ding dé 
chuyén caéc phan ttf duc chon t phai sang trai (List2 sang List1). 


BuGc 14: VGi Command? ta sé copy doan ma tl’ Command! v6i 1 vai 
thay d6i nho. 


BuGc 15: Command? thc hién cac thao tac gidng vGi Command1, nhung 
cé nhiém vu di chuyén phan tl’ dudc lWa chon tl List2 sang List1. Doan 
ma trong Command! sé dudc str dung lai vGi m6t vai thay d6i nho. 
Nhap dup lén Command1, chon cdc ma lénh da thém vao 6 cdc buéc 
tru6c. Chon Edit/Copy trén menu. 


BuGc 16: Dong ctta s6 Code va nhap dip lén Command2. Su kién 
Command2_Click sé hién thi trong ctta s6 Code. Nhap bat ky bén trong 
thu tuc su kién va chon Edit/Paste trén menu. Nhu vay ta da chép doan 
ma tu’ Command1 sang Command2. 


BuGc 17: Sta lai céc ma 1énh vUa duc chép. Thay d6i cdc chti thich cho 
thich hop; d6i List1 thanh List2 va ngu@c lai. Nhiing sUfa dOi nay gitip 
Command? cé thé thuc hién thao tac chuyén cdc phan tl du@c chon ttt 
List2 sang List1. 


Luu cdc cong viéc da thuc hién bang cach chon File/Save Project. 


BuGc 18: Chay chuong trinh. Chon phan tUr tht nhat trong List1 va chon 
Command1 dé chuyén no sang List2. Bay gid chon phan tU tht? nhat 
trong List2, va nhdp Command2. Néu Command2 khong thuc thi, trd lai 
m6i truOng soan thao. Kiém tra lai doan ma lénh trong thu tuc 
Command2_Click ta vUa chép 6 buc trén. 


BuGc 19: Luu y rang cdc phan tr 6 ca 2 ListBox khong dugc sap tht? tu; 
néu muOn sap tht? tu, ta nhap List1 va d6i thu6c tinh Sorted thanh True, 
tuong tu d6i vdi List2. 


BuGc 20: Luu dy an lai va chay chuong trinh. Tat ca céc phan tt? phai 
duc hién thi theo thf tu trong ca 2 ListBox, bat chap th tu ching dudc 
thém vao trong ListBox. 


Bai tap 11-2 


THAO TAC VOI SPINCONTROL 

MOt SpinControl 1a sy két hop cUa TextBox va Slider. Slider tao mOt 
mién gia tri sO du@c hién thi trong TextBox. Cac gia tri nay cé thé dudc 
thay d6i bang cach nhap trUc tiép vao trong TextBox. 

Buc 1: Tao thu muc Basic\Bt1-2. Tao du 4n mGi trong thu muc trén. 


Buc 2: Trong Form1, thém m6t TextBox va Horizontal Scroll Bar nhu 
hinh 2. Thiét lap cdc thudc tinh sau cho m6i Control: 


Hinh 1.2: Spin Control 


Item1: TextBox 


Name: Text1 


Text: <blank> 


Item2: Horizontal Scroll Bar 


Name: Hscroll1 
LargeChange: 10 
Max: 100 


BuGc 3: Nhap dip lén scrollbar dé nhap ma 1énh, day 1a su ki€n Change 
cUa Scroll Bar goi 1a ham HScroll1_Change. Thém doan ma sau dé hién 
thi gid tri hi€n thi cUa scroll bar trong TextBox. 


Text1.Text = HScroll1.Value 


Buc 4: Chay Ung dung bang cach chon Run/Start trén menu. Bay gid 
nhap cac mii tén trai va phai cUa scroll bar. Gia tri trong TextBox phai 
thay d6i. 


BuGc 5: Bay gid thém ma dé thay d6i gid tri bang cdch nhap truc tiép gia 
tri trong TextBox. Nhap dup vao TextBox va thém doan mA sau dé thiét 
lap gia tri cho scroll bar khi TextBox thay d6i: 


HScroll1.Value = Text1.Text 


Buc 6: Chay chuOng trinh va nhap 50 vao TextBox. Vach cua scroll bar 
thay di theo. Thay d6i vach cUa scroll bar, gia tri trong TextBox citing 
thay d6i. 


BuGc 7: Trong khi chay chuOng trinh, nhdap ky ty’ A vao TextBox. Diéu gi 
xay ra? Nguyén nhan vi scroll bar chi nhan cac gia tri 14 sO ch khong 
phai ky tu. 


Buc 8: Dé ngan chan nhiing ky tu’ kh6ng mong muOn dugc nhap vao 
TextBox, ta su dung su kién KeyPress. Su kién nay xay ra khi c6 mOt 
phim trén ban phim du@c nhan, nhung truG6c khi gia tri thc su dudc hién 
thi trén TextBox. Su kién nay nhan m6t gia tri s6 nguyén cUa phim dudc 
nhan, gi la ASCII. MOi ky tu trén ban phim dudc dai dién bang mét ma 
ASCII duy nhat. Do do ta cé thé kiém tra phim nao duc nhan va bo qua 
né néu ta thay khéng can thiét. 


BuGc 9: Thém doan m sau vao sy kién Text1_KeyPress dé ngan chan 
cac gia tri khong phai 1a sé. 


'Loai bo ky tu khong can thiet 

If KeyAscii = vbKeyBack Then Exit Sub 

If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then 
KeyAscii = 0 

End If 


Buc 10: Luu dy an lai va chay chuong trinh. 


Bai tap 11-3 
THAO TAC VOI DRIVELISTBOX, DIRLISTBOX, FILELISTBOX 
Trong vi du nay ta phai tao 5 dOi tuong, trong dé cé 4 diéu khién: 


e MOt Form. 

¢ MOt diéu khién DriveListBox 
¢ MOt diéu khién DirListBox 

¢ MOt diéu khién FileListBox 

¢ MOt diéu khién ImageBox 


BuGc 1: Tao giao dién ngudi ding. Ta chi can nhap va vé ding vi tri 
tung diéu khién trén Form. 
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Hinh 1.3: Giao dién lua chon tap tin hinh anh dé hién thi 


1: DriveListBox 

Name: drvSource 

2:DirListBox 

Name: dirSource 

3:FileListBox 

Name: filSource 

Pattern: *.bmp;*.wmf;*.ico;*.jpg 
4:ImageBox 

Name: ImgSource 

Stretch: TRUE 

BuGc 2: Viét ma trao d6i thong tin gilta cdc d6i tuong: 


Trong cla sO thiét ké Form, nhap dtp vao DriveListBox, ctta s6 Code 
hién ra, xU ly su kién sau: 


Private Sub drvSource_Change() 
dirSource.Path = drvSource.Drive 

End Sub 

Tuong tU cho DirListBox & FileListBox 
Private Sub dirSource_Change() 
filSource.Path = dirSource.Path 


End Sub 


Private Sub filSource_Click() 


imgSource.Picture = LoadPicture(filSource.Path & "\" & 
filSource.FileName) 


End Sub 


Buc 3: Luu du an lai vao thu muc Basic\Bt1-3. Chay chuong trinh nho 
phim F5. 


TB Elle Edt View Project Format Debug Run Query Diagram Tools Add-Ins window Help 18) >/ 


B-H-Blee|t:eeesloa|>, 5 «| SPLAwe 


| [ADDsCcuS.DLL 
=: [BiBLio.MDB 


© |CVPACK.EXxE 
= |DATAVIEW.DLL 
+ JLINK.ExE 


BHSUG: M1 sp 
fe/@OwB>ol lg 


Hinh 1.4: Két qua thu thi 


Bai tap 11-4 
DIEU KHIEN OLE 
Bu6c 1: Tao du an mi, trong dé ta c6 su dung OLE. 


HOp thoai Insert Object hién ra dé ta lua chon, 6 day chon kich hoat 
Create New, Object Type la Bitmap Image; danh dau chon Display as Icon. 


Js. Form) 


J ¢ [DISK1. VOLS] be | 


fa Windows XP 


P_Badboy.jpg 
“professional. jpg 


Hinh 1.5: Su dung OLE Control 


BuGc 2: Nhap OK, VB sé goi trinh Ung dUng Paint & ta vé hinh trén cUta 
sO Paint. Sau d6 chon Exit & Return trong cUa s6 Form, ta dugc: 


[missing_resource: .png] 


[missing_resource: .png] 
Hinh 1.6: Két qua thu thi Ung dung 
Buc 3: Luu dy an vao thu muc Basic\Bt1I-4 va chay chuOng trinh; nhap 


dup vao biéu tung Bitmap Image,VB sé khdi d6ng Paint dé ta hiéu 
chinh hinh vé dau. 


Bai tap ty lam 


1. Thiét ké chuOng trinh nhu sau: 


Hinh I.7 Cac phép tinh co ban 


ign] - [Fount (Form)] 
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Nhap vao 2 gia tri A, B; sau d6 chon m6t phép toan (+,-,*,/). Nhap chon 
nut nhan Thuc hién, két qua sé hién thi trong diéu khién nhan Két qua. 


1. Thiét ké chuOng trinh dé nhdp vao toa d6 cUa hai diém (x1,y1); 
(x2,y2) va cho phép: 


a) Tinh hé s6 géc cUa duOng thang di qua hai diém dé theo cng thu: 
Hé sO géc = (y2 - yl) (x2 - x1) 

b) Tinh khoang cach gitta hai diém theo cong thc: 

khoang cach = \/(x2 - x1)? + (y2-y1)? 

Giao dién chuong trinh cé thé nhu sau: 


Hinh 1.8: Toa d6 cac diém 


<4 Bitmap Image in - Paint 


1. Viét chUOng trinh cho phép nhap vao ban kinh r cUa mt hinh tron. 
Tinh chu vi va dién tich cUa hinh tron theo cng thu : 


Chu vi CV = 2*Pi*r 
Dién tich Dt = Pi*r*r 
Hién thi cdc két qua 1én man hinh. 


4) Thiét ké chuoOng trinh cé giao dién nhu hinh duGi va thuc hién cac 
chUc nang sau: 


im. Form! | — | Co} 


Bitmap Image 


Hinh 1.9: Lua chon tén 


M6Oi khi ngu0i str dung chuOng trinh nhap thong tin vao 2 6 
TextBox, sau d6 nhap chon nit Thém, gia tri cua 6 Ma sO dudc dua 
vao ComboBox, con gia tri cua 6 Ho va tén dudc dua vao ListBox. 
M6i khi ho chon m6t ma sO nao dé trong ComboBox, gia tri ho va 
tén tuong Ung cling sé dudc chon trong ListBox; d6ng thdi chiing sé 
duoc hién thi 1én trén cdc diéu khién TextBox tuOng Ung (nhu hinh). 
(Xu ly su kién Combol_Click & List1_Click) 

DOi vGi ma sO va ho tén cla mOt ngudi, ta c6 thé stra d6i gid tri cua 
chung trong cdc 6 nhap TextBox, sau dé chon nit Sua, gia tri cua 
chting trong ComboBox & ListBox ciing stta d6i theo. 

Khi ngudi ding chon m6t mi s6 (hay ho tén) trén ComboBox (hoac 
ListBox), sau d6 ho chon Xéa, cac théng tin nay du@c x6éa ra khoi 
ComboBox & ListBox. 


CAC CAU TRUC LAP TRINH TRONG VB 


Bai tap cé hu6ng dan 


Bai tap 111-1 
SU DUNG SELECT CASE 


Tao thu muc Basic\Btl1II-1. Thiét ké chuOng trinh cé giao dién & luu 
trong thu’ mUc trén: 


fa cacpheptoon ne 


Hinh I.10: Select Case 

O day, ngudi str dung chuong trinh nhap vao m6t tudi nao dé trong 6 
nhap tui, sau dé ho nhap nut Nhan xét, m6t nhan xét sé xuat hién Ung 
vGi tui ma ho nhap tt ban phim. 


Ltic nay ta su’ dung toan tU’so sanh (=, <, <=, >, >=, <>) cting vGi cdc tur 
khéa Is va To trong biéu thu. 


Is: so sanh bién vGi biéu thUtc duc liét ké sau tt khda Is. 
To: dinh nghia pham vi cUa gia tri. 

Su kién Command1_Click(): 

Dim Age As Integer 

Age = Val(Text1.Text) 


Select Case Age 


Case Is < 18 

Label2.Caption = "Ban con thieu nien, ban phai hoc thoi!" 
Case 18 To 30 

Label2.Caption = "Ban da truong thanh, lap gia dinh thoi!" 
Case 31 To 60 

Label2.Caption = "Lua tuoi trung nien roi!" 

Case Else 

Label2.Caption = "Ban co con chau day dan roi nhe!" 


End Select 


Bai tap 111-2 


BIEN VA CAU TRUC 


Bu@Gc 1: Tao thu muc Basic\BtlII-2. Tao du 4n mGi (VB Standard EXE) 
trong thu muUc trén; thém m6t modul vao du an, trong modul nay thém vao 


doan ma sau: 
Public Const tieude As String = "Quan ly hanh chinh" 


Public Const sohieu As String = "1.0" 


Thém doan ma sau vao ham xU ly su kién Form_Load cUa Form1: 


Form1.Caption = tieude & " phien ban " & sohieu 


Chay Ung dung, ta thay tiéu dé cUa Form: “Quan ly hanh chinh phien ban 


10". 


Bay gid, mG Modul! va thay Public bang Private. Chay chuong trinh. 
Diéu gi xay ra? 


BuGc 2: D6i cac khai bao trén thanh Public, thém dong sau day vao dau 
thu tUc Form_Load: 


tieude = “Loi xuat hien” & “Hang so khong the thay doi duoc.” 

Chay chuong trinh, diéu gi xay ra? 

Buc 3: Thém dong sau trong ham xu ly su kién Form_Resize: 

MsgBox “FORM RESIZE” 

BuGc 4: Chay chuong trinh, khi Form bat dau du@c hién thi (su kién 
Form_Load), su kién Resize cUa Form dugc thu hién. Chi cé ham xu ly 
su kién Resize mGi cho biét chac rang ham Form_Load du@c thuc thi. 
Dé kiém chUing ta tao m6t bién trén form va trong ham Form_Load ta 
thiét lap gid tri cUa nd. Sau d6, ham Form_Resize c6 thé kiém tra bién va 
xU ly trén bién nay. 

Buc 5: Khai bao m6t bién Private trong Form1 tén sukienLoad: 

Private sukienLoad As Boolean 

Trong ham Form_Load, dat gia tri True cho bién trén: 


sukienLoad = True 


Bay gid ta kiém tra gid tri cUa bién trong ham Form_Resize. Thém vao 
doan ma sau trong ham Form_Resize: 


If sukienLoad = True Then 
SukienLoad =False 


Exit Sub 


End If 

MsgBox “Form Resize” 

Chay Ung dung, khi Form bat dau dugc hién thi, ta khong thay xuat hién 
cau thong bao, nhung khi ta thay d6i kich thudc cUa Form (nhan cac ntit 
_, cUa form), cau théng bdo lai xuat hién. O day ta da str dung m6t bién 
lam trung gian cho sU giao tiép gitta su kién Form_Load va sy kién 
Form_Resize. BGi vi ca 2 ham nay nam trong Form1, nén ta c6 khai bdo 


Private cho ching, cdc (ing dung khac khong thé truy xuat dén cdc bién 
nay. 


CHUONG TRINH CON 


BuGc 6: Ta viét m6t chUOng trinh con dé x ly chuGi. Dau vao cua 
chuOng trinh con 1a m6t chudi, két qua cUa chUOng trinh con 1a chudi d6 
nhung cac tu déu du@c viét hoa ky tu dau tién. Bai tap nay gitip ta khai 
bdo (dinh nghia) mét chung trinh con va goi thUc thi chuong trinh con 
d6 trong chuOng trinh Ung dung cUa minh. 


Chon Modul! trong cUfa s6 soan thao chuong trinh, sau d6 nhaép chon 
Tools\Add Procedure. Dinh nghia m6t ham public tén Doihoa() nhu sau: 


Public Function Doihoa(s As String) As String 
Dim s1 As String 

Dim s2 As String 

Do While InStr(s, "") <> 0 

s1 = Left(s, InStr(s, "")) 

s = Right(s, Len(s) - InStr(s, "'")) 


"Doi chu hoa 


s1 = UCase(Left(s1, 1)) & Right(s1, Len(s1) - 1) 

s2=s2&s1 

Loop 

' Tra ket qua 

Doihoa = s2 &"" &s 

End Function 

‘Ham nay khong viet hoa tu cuoi cung. 

Buc 7: Ham Doihoa cé nhiém vu nhan vao m6t chudi va d6i ky tu dau 
tién cUa céc tU trong chuOi thanh cht hoa. Bay gid ta kiém tra ham nay 
nhu sau: Thém mOt TextBox va mOt nit nhdn (Button) lén Form1. Nhap 
vao Button, ta th€m doan mA sau vao ham x ly su kién 
Command1_Click: 


Form1.Caption = Doihoa(Text1.Text) 


Chay Ung dung, nhap mt chu6i vao Text1, nhdp Command1. Chudi chtf 
hoa s@ xuat hién trén tiéu dé cua Form1. 


Bu®Gc 8: SUfa lai sao cho cé thé viét hoa ky tu dau tién cUa tat cac tw. 


Bai tap 111-3 


LUA CHON VOI LISTBOX 


Bu6c 1: Tao thu muc Basic\Bt1II-3. Tao du 4n mdi VB Standard EXE 
trong thu’ mUc trén, sau d6 tao Form co dang sau: 


im. Toa do cac diem 4 


Biém thy nhat 


Biém thu hai 


x | x 
ate we | 
He s6 gdc Khoang cach 


S| Hs 


Hinh 1.11: Lua chon vGi ListBox 


Ta c6 2 ListBox va céc nuit nhdn (Button); trong dé: 
Nut > chuyén m6t phan ttr tr trai sang phai 

Nut < chuyén m6t phan tt tt’ phai sang trai. 

Nut >> chuyén tat ca cdc phan tUr tU trai sang phai. 
Nut << chuyén tat ca cdc phan tUr t' phai sang trai. 


Thém 2 ListBox va 4 Button vao Form1. Trong ham xu ly su kién 
Form_Load thém vao doan ma: 


List1.AddItem "Thing 1" 
List1.AddItem "Thing 2" 
List1.AddItem "Thing 3" 
List1.AddItem "Thing 4" 
List1.AddItem "Thing 5" 


List1.AddItem "Thing 6" 


Chay chuong trinh. 


BuGc 2: Thém ham xt ly su’ kién Click cho ntit nhan 1 (>) 
Command1_Click: 


' Kiem tra co chon hay khong? 

If Form1.List1.ListIndex = -1 Then Exit Sub 

' Chep tu trai sang phai 

Form1.List2.AddItem Form1.List1.List(Form1.List1.ListIndex) 

' Xoa ben trai 

Form1.List1.Removeltem Form1.List1.ListIndex 

Buc 3: Chay chuong trinh, chon phan tU trong List1 va nhap nut >, 
phan tur d6 chuyén sang List2. Bay gid ta lam ngu@c lai: chuyén phan tr 
duc chon t List2 sang List1. Trd vé cUfa sO soan thao; chon doan ma 
vua nhap trong List1, chon Edit\Copy trong menu cUa VB. Nhap lén 


Button <, chon Edit\Paste. Bay gid ta sU’a lai doan ma sau trong ham xU ly 
su kién Command2_Click: 


' Kiem tra co chon hay khong? 

If Form1.List2.ListIndex = -1 Then Exit Sub 

'Chep tu phai sang trai 

Form1.List1.AddItem Form1.List2.List(Form1.List2.ListIndex) 
' Xoa ben phai 

Form1.List2.Removeltem Form1.List2.ListIndex 


Buc 4: Luu du an va chay chuOng trinh. 


Ta nhan thay 2 doan ma 1énh trén (cho Button < va >) 14 nhu nhau (chi 
d6i chO List1 cho List2 va ngu@c lai). Do d6 ta sé viét mOt chUOng trinh 
con dé chuyén df liéu tl ListBox nay sang ListBox kia, va trong ham xUt 
ly su kién cUa 2 Button ta chi can goi chuOng trinh con nay dé chuyén 
dtr liéu. 


Thém mt Modul mdi vao du an tén Modul1, chon Tool\Add Procedure 
dé thém m6t chung trinh con vao tén Chuyendulieu() 


Vao Modul1, sUva d6i lai thU tuc chuyén d@ liéu nhu sau: 
Public Sub Chuyendulieu(L1 As ListBox, L2 As ListBox) 
' Kiem tra co chon hay khong? 

If L1.ListIndex = -1 Then Exit Sub 

'Chep 

L2.AddItem L1.List(L1.ListIndex) 

' Xoa ben trai 

L1.Removeltem L1.ListIndex 

End Sub 


Bay gid ham xu ly su kién cua Command1 (Command1_Click) ta sta lai 
nhu sau: 


Call Chuyendulieu(Form1.List1, Form1.List2) 
Ham Command2_ Click: 
Call Chuyendulieu(Form1.List2, Form1.List1) 


Luu dy an va chay chuong trinh. Kiém tra két qua. 


Bai tap 11 -4 

TRUYEN THEO DIA CHi VA TRUYEN THEO GIA TRI 

BuGc 1: Tham s6 dua vao chuOng trinh con du@c truyén theo m6t trong 2 
cach: theo dia chi va theo gia tri. Bay gid ta tao du 4n mdi trong thu muc 
Basic\Bt2-4 dé kiém tra chting. 

Buc 2: Tao Form1 nhu sau: 


Hinh 1.12: Truyén tham s6321 


i. Thong tin ES 


Ma so Ho va ten 
fi 588 [Nauydn Quée Toan 


Button 1: Name: cmdTTri; Caption: Truyen tri 
Button 2: Name: cmdTChieu; Caption: Tham chieu 
TextBox: Name: Text1 

Label 1: Name: IblTruoc 

Label 2: Name: |blTrong 


Label 3: Name: lblSau 


Buc 3: Thém 1 Modul vao du an tén 14a Modul1, chon Tools\Add 
Procedure thém thU tuc Thamchieu nhu sau: 


Name: Thamchieu 

Type: Sub 

Scope: Public 

BuGc 4: Thém doan ma sau trong thu tuc Thamchieu 
Public Sub Thamchieu(so As Integer) 

so=sot+2 

Form1.lblTrong.Caption = Str(so) 

End Sub 

BuGc 5: Chon Tool\Add Procedure dé thém thu tuc Truyentri nhu sau: 
Name: Truyentri 

Type: Sub 

Scope: Public 

Buc 6: Thém doan mi sau trong thu tUc Truyentri 
Public Sub Truyentri(ByVal so As Integer) 

so=sot+2 

Form1.lblTrong.Caption = Str(so) 

End Sub 


BuGc 7: SU khac nhau gitfa 2 thu tuc trén 1a ttf khéa ByVal trong thu tuc 
Truyentri. Bay gid ta thém thu tuc xr ly bién c6 Click cUla Button 


cmdTTri. Thém doan ma sau: 
Private Sub cmdTTri_Click() 
Dim n As Integer 

n= Val(Text1.Text) 
IblTruoc.Caption = Str(n) 
Call Truyentri(n) 
IblSau.Caption = Str(n) 

End Sub 


BuGc 9: Thém ham xt ly bién cO cmdTChieu_Click cho Button 
cmdTChieu: 


Private Sub cmdTChieu_Click() 
Dim n As Integer 

n= Val(Text1.Text) 
IblTruoc.Caption = Str(n) 

Call Thamchieu(n) 
IblSau.Caption = Str(n) 

End Sub 


BuGc 10: Luu dy an, chay chuong trinh. Nhap s6 bat ky vao 6 TextBox 
r6i nhap nut Truyen tri, sau d6 nhap nut Tham chieu. Kiém tra két qua. 
Giai thich. 


Bai tap 111-5 


THAM SO TUY CHON 


Buc 1: Tao thu muc tén Basic\Bt1II-5. Tao du dn mGi trong thu muc 
nay. 


Buc 2: Tao Form nhu sau: 


ia. Su dung Select Case 


Nhdp tuoi: | 
Nhan xet | 


Hinh 1.13: Lay thOi gian 


Trong do: 

Label: Name: IbITg 

Button 1: Name: cmdGioPhut 
Button 2: Name: cmdGioPhutGiay 


Buc 3: Thém modul mGi vao du an tén Moduli. Chon Tool\ Add 
Procedure tao thu tuc: 


Name: Laythoigian 
Type: Sub 


Scope: Public 


Buoc 3: Thém doan ma sau vao thu tuc trén: 


Public Sub Laythoigian(gio As String, phut As String, Optional giay As 
String) 


‘Tham so thu 3 co tu khoa Optional, nghia la ta 

co the goi thu tuc co the co tham so nay hay khong co deu duoc 
"Ham IsMissing kiem tra xem tham so nay co hay khong 

If IsMissing(giay) Then giay = "" 
Dim hientai 

hientai = Now 

gio = Format$(hientai, "hh") 
phut = Format$(hientai, "nn") 
giay = FormatS(hientai, ss") 
End Sub 


Buc 4: Thém thu tuc xu ly su’ kién cho Button cmdGiophutgiay, trong 
thu tUc nay chén doan mi sau: 


Private Sub cmdGiophutgiay_Click() 
Dim gioht As String 

Dim phutht As String 

Dim giayht As String 

Call Laythoigian(gioht, phutht, giayht) 


IbITg.Caption = gioht & ":" & phutht & ":" & giayht 


End Sub 


Buc 5: Thém thu tuc xU ly su kién cho Button cmdGiophut, trong thu 
tuc nay chén doan ma sau: 


Private Sub cmdGiophut_Click() 
Dim gioht As String 

Dim phutht As String 

‘Khong su dung tham so thu ba 

Call Laythoigian(gioht, phutht) 
IbITg.Caption = gioht & ":" & phutht 
End Sub 


Buc 6: Luu dy an lai va chay chuoOng trinh. Kiém tra két qua. 


Bai tap 111-6 


PARAM ARRAY 
BuGc 1: Tao thu muc Basic\BtlII-6. Tao dy 4n mGi trong thu’ muc nay. 


Buc 2: Tao Form nhu hinh sau: 


ia. Formt al Cl 3} 


Hinh 1.14: Param Array 

Trong do: 

ListBox: Name: IstTen 

Button: Name: cmdds; Caption: Them vao danh sach 


Buc 3: Chén modul mdi vao du an tén Modul1. Sau d6, chon Tool\Add 
Procedure dé chén thu tuc sau: 


Name: Diends 

Type: Sub 

Scope: Public 

Buc 3: Chén doan mi sau vao thu tuc Diends 
Public Sub Diends(ParamArray Ten() As Variant) 
'Su dung ParamAtrray thi mang phai kieu Variant va 
‘mang nay la tham so cuoi cung cua thu tuc 


Dim hten As Variant 


For Each hten In Ten() 

Form1.IstTen.AddItem hten 

Next 

End Sub 

Buc 4: ParamArray cho phép khong can xac dinh s6 lugng cac déi sO 
trong mOt chUOng trinh con. Bay gid, thém ham xw ly su kién cho nit 
cmdds: cmdds_Click: 

Private Sub cmdds_Click() 

Call Diends("Huynh Xuan Hiep", "Nguyen Van Linh", "Lam Hoai Bao") 
Call Diends 

Call Diends(""Phan Huy Cuong") 

End Sub 

Bu@Gc 5: Luu dy an lai va chay chuoOng trinh. Kiém tra két qua (hinh bén 


du6i). Luu y dén 10i goi thU tUc trong su kién cmdds_Click (s6 luong 
d6i sO khac nhau) 


im. Form 


Yd Truyen tri | Khi goi ham 
Tham chieu | 
Sau goi ham 


Hinh 1.15: Két qua Param Array 


Bai tap 111-7 


XU LY CHUOI 


[missing resource: .png] 


12345Bu6c 1: Tao du dn mGi trong thu muc Basic\Bt2-7 vi giao dién 
nhu sau: 


Hinh 1.16: Xt ly chudi 


1: Form: Name: frmMain; MinButton: False; MaxButton: False; Font: VNI- 
Times. 


2: Label: Name: lblTen. 

3: TextBox: Name: txtTen. 

4: CommandButton: Name: cmdTen; Caption: Tach tén. 

5: CommandButton: Name: cmdCKT; Caption: Cat khoang trang. 
BuGc 2: Tao m6t ham cat khoang trang nhu sau: 

Private Function ATrim(ByVal Name As String) As String 

Name = LTrim(RTrim(Name)) 

Do While InStr(Name, "_ ") <> 0 

Name = Replace(Name,'" "," ") 


Loop 


ATrim = Name 
End Function 


Bu@Gc 3: Trong cUfa sO thiét ké Form; nhap dup vao Tach tén, ta xr ly 
doan ma cho su kién nay: 


Private Sub cmdTen_Click() 

Dim sName As String, Name As String 

sName = ATrim(StrConv(txtTen.Text, vbProperCase)) 
Dim i As Long 

i = InStrRev(sName, " ") 

Name = Right(sName, Len(sName) - i) 

MsgBox Name & ": " & Str(Len(Name)) 

End Sub 


BuGc 4: Sau dé, trd lai cUta sO thiét ké, nhap dup vao Cat khoang trang, 
ta xu ly: 


Private Sub cmdCKT_Click() 

Dim sName As String 

sName = ATrim(StrConv(txtTen. Text, vbProperCase)) 
MsgBox sName, , "Kieu du lieu chuoi" 

End Sub 


Buc 5: Luu du an va chay chuOng trinh. 


Bai tap 111-8 


xU LY LOI 


Bu6Gc 1: Tao mét du an mdi. Ding Tools\Add Procedure thém mot thu 
tuc m@i tén GoiThuTuc vao Form1 vGi nOi dung nhu sau: 


Public Sub GoiThuTuc() 

Dim bien As Integer 

MsgBox "Truoc khi gan tri cho bien" 

bien = "Bien nguyen khong nhan gia tri la chuoi" 

MsgBox "Sau khi gan tri cho bien: " & "Bien = " & Format(bien) 
End Sub 

Bu6Gc 2: Thu tuc x ly su kién Form_Load c6 ni dung nhu sau: 
Private Sub Form_Load() 

MsgBox "Truoc khi goi thu tuc" 

Call GoiThuTuc 

MsgBox "Sau khi goi thu tuc" 

End Sub 

Luu dU an vao thu muc Basic\Bt1II-8: 

Form: tén la form1 


Project: Debug 


Buc 3: Chay chuong trinh. VB dua ra hp thoai dé bat 10i (debug) 
chuOng trinh. Ta chon End dé tr vé cUfa s6 soan thao. 


Tao tap tin thuc thi ten Debug.exe bang cach chon File\Make Debug.exe. 
Chay tap tin Debug.exe tu’ Windows Explorer ta nhan du@c hOp thoai bao 
10i va chUOng trinh tu déng cham dUt. 


Nhan xét két qua khi thu hién chung trinh. 


BuGc 4: Bay gid ta thém vao doan ma x ly 16i trong thU tuc cua su kién 
Form_Load: 


Private Sub Form_Load() 

On Error GoTo Xulyloi 

MsgBox "Truoc khi goi thu tuc" 

Call GoiThuTuc 

MsgBox "Sau khi goi thu tuc" 

Thoat: 

Exit Sub 

Xulyloi: 

MsgBox "Su kien Form_Load - Loi xay ra: " & Err.Description 

Resume Thoat 

End Sub 

Buc 5: Luu dy an va chay chuong trinh. Nh@n thay, thay vi ta nhan 
dugc cau théng bao loi tl VB, mot hp thoai bao 16i do ta dua vao xuat 
hién. Luu y, nhting 160i duc bat trong thu tuc Form_Load (cht? khéng 


phai trong GoiThuTuc()). Nguyén nhan vi thu tuc GoiThuTuc() dudc goi 
bdi thu tuc xU ly su kién Form_Load. 


Bu®Gc 6: Bién dich lai thanh tap tin Debug.exe, chay nd. Nhan xét két 
qua. 


Buc 7: Cac két qua trén cho ta biét duc cac 16i trong su kién 
Form_Load dudc xU ly bGi cac thao tac bat 160i trong thU tUc Form_Load. 
Nhung néu thu tuc GoiThuTuc() ciing cé cac thao tac bat 10i chuOng trinh 
thi sao? DOn gian gia sU m6t 10i xuat hién trong GoiThuTuc(). BO phan 
xU ly 16i cua GoiThuTuc (do ta thém vao dé bat 160i chuOng trinh) sé thc 
thi thay vi doan 1énh bat 160i cua sy kién Form_Load du@c thuc hién. Khi 
GoiThuTuc cham dtt, quyén xUf ly 10i mdi trao lai cho su kién 
Form_Load. 

Sua lai thu tuc GoiThuTuc nhu sau: 

Public Sub GoiThuTuc() 

Dim bien As Integer 

On Error GoTo Xulyloicucbo 

MsgBox "Truoc khi gan tri cho bien" 

bien = "Bien nguyen khong nhan gia tri la chuoi" 

MsgBox "Sau khi gan tri cho bien: " & "Bien = " & Format(bien) 
Thoatthutuc: 

Exit Sub 

Xulyloicucbo: 

MsgBox "GoiThuTuc() - Loi xay ra: " & Err.Description 


Resume Thoatthutuc 


End Sub 


Buc 8: Luu du an va chay chuOng trinh. Thay doan ma Resume 
Thoatthutuc bang Resume va chay chuOng trinh. M6t vong lap vo tan 
xay ra do chuOng trinh sé quay lai doan ma bi 16i va c6 gang thuc thi no; 
dé thoat chung trinh ta phai bam t6 hop phim Ctrl + Break. 


Bay gid thay Resume bang Resume Next va chay lai chuong trinh. Nhan 
xét két qua. Giai thich. 


Bai tap ty lam 
1. Thiét ké chuOng trinh cho phép nhap vao cac hé s6 a, b cUla phuong 
trinh bac 1 dang: ax+b=0; sau d6 giai phu‘Ong trinh nay. Giao dién 
chuong trinh c6 thé nhu sau: 


Hinh 1.17: Phuong trinh bac 1 


im. Form Jle) Fs) 


Lay gio, phut, giay | 


1. Thiét ké chuOng trinh cho phép nhap vao cac hé s6 a, b, c cua 
phuong trinh bac 2 dang: ax2 + bx + c=0; sau do giai phuOng trinh 
nay. 

2. Thiét ké chuong trinh cho phép nhap vao mOt ky tu, sau d6 kiém tra 
xem ky tu d6 thu6c tap hop nao trong cac tap ky tu sau: 


Cac ky tu’ cht hoa: 'A' ...'Z' 


Cac ky tu cht thu@ng: 'a' ... 'z' 
Cac ky tu chts6 : '0'... '9' 
Cac ky tu’ khac. 


1. Giai phuOng trinh bac 1 bang cach str dung cau tric Select Case 

2. Tao mOt chuoOng trinh hién thi mt danh sach chon IVa cho ngudi 
ding trong m6t ListBox, sau d6 xU ly vGi cau tric quyét dinh Select 
Case. 


Muc dich cia diéu khién su’ kién nay 1a hién thi m6t danh sach cdc qu6c 


gia, sau do hién thi mOt thong di€p chao mUng bang ngén ngtf ban xU khi 
nguOi ding chon qu6c gia cUa ho. 


m=. Form _=/o) x/ 


Them vao danh sach | 


im. Form -|5] x! 


Huynh Xuan Hiep 
Nguyen Van Linh 
Lam Hoai Bao 

Phan Huy Cuong 


Hinh 1.18: LOi chao cac nuGc 


Chang han: Tiéng Anh: Hello, programmer 
Tiéng Duc: Hallo, programmierer 
Tiéng Tay Ban Nha: Hola, programador 
Tiéng Y: Ciao, programmatori 

1. SU dung vong lap For.. Next 


SU dung For.. Next dé thay d6i d6 16n ky tu trén m6t Form bang cach 
thay d6i thu6c tinh FontSize cUa Form. 


Thiét ké Form cé giao dién: 


m= Kieu chuoi 


Nhap tén: 


——————____—— 


Tach ten | Cat khodng trang | 


x 
A b B f 
Két qua [Phuong trinh co nghiem X = -4 


Hinh 1.19: For...Next 

Su kién Command1_Click() 
Dim i As Integer 
Fori=1To 10 
Form1.FontSize = 10 + i 
Print "Line "; i 

Next 

Chay chuoOng trinh. 


1. Thiét ké chuOng trinh cho phép tinh N! (N! = 1*2*3* 
dién dé nghi: 


CI iol 
INTERNATIONAL WELCOME PROGRAM 


Chooise a country: 


i ello, programmer 
German: Ww 


Qult | 


Hinh 1.20: Tinh N! 


...*N). Giao 


1. Thiét ké chuOng trinh cho phép nhadp vao mOt s6 nguyén N; sau dé 


tinh cdc tOng sau: 
a. S=Lt24..7 Tl 
b. S=1/2 + 2/3+... +n/(n+1) 


c.S=-142-3+4-...+(-1)nn 


1. Thiét ké chuOng trinh cho phép nhap vao sO nguyén dung N; sau 
d6 tim sO nguyén duong k nho nhat sao cho 
“oy rs CoNnesss ZN. 

2. Thiét ké chuong trinh cho phép nhap vao 2 sO nguyén A, B; sau dé 
tim UCLN va BCNN cua hai s6 a va b theo thuat todn sau ( Ky hiéu 
UCLN cua a, b 1a (a,b) con BCNN 1a [a,b]) 


- Néu a chia hét cho b thi (a,b) = b 
- Néu a = b*q +r thi (a,b) = (b,r) 
- [a,b] = a*b/(b,r) 
1. Thiét ké chuOng trinh cho phép nhap vao sO nguyén N; sau dé viét 1 
ham tinh N!; cu6i cing hién thi két qua gia tri N!. 
2. Thiét ké chuong trinh cho phép nhap vao 2 sO nguyén N, K; st’ dung 


ham tinh N! 6 trén, viét mt ham tinh gia tri t6 hop chap K cua N 


phan tt theo cong thite C# = TaueeaTe 


3. Thiét ké chuong trinh cho phép nhap vao s6 thuc X va sO nguyén N; 

sau d6 viét cdc ham tinh caéc tOng sau r6i hién thi két qua: 
-$=1+x+x2+x3+...+ xn 
-S=1-x+x2-x3+...(-1)n xn 
$= 1 + x/1! +x2/2! + x3/3! +... xn/n! 

1. SU dung vong lap Do While ... Loop thiét ké chung trinh cho phép 
nhap vao m6t sO nguyén, sau dé théng bao két qua xem sO dé cé 
phai 1a sO nguyén t6 hay khéng? 

Doan chuOng trinh kiém tra s6 nguyén N c6 nguyén tO hay khong: 
i=2 


Do While (i < N) And (N Modi <> 0) 


i=i+l 

Loop 

If i= N Then N 1las6 nguyén tO 
Else N khong 1a nguyén t6 


1. Lam lai bai tap 11 (tinh N!) nhung str dung vong lap Do While ... 
Loop: 

2. Lam lai bai tap 15 (kiém tra s6 nguyén t6) nhung bang cach str 
dung Do Until ... Loop. 

3. Lam lai bai tap 11 (tinh N!) nhung sur dung vong lap Do Until ... 
Loop. 

4. Thiét ké chung trinh cho phép nhap vao mt sO nguyén N; sau dé 
phan tich s6 nguyén nay ra thlUfa sO nguyén t6. Giao dién chuong 
trinh c6é thé nhu sau: 


is, Germany = |B) x! 


INTERNATIONAL WELCOME PROGRAM 


Chooise a country: 


rato. programmierer 
Quit | 


Hinh 1.21: Tha sO nguyén tO 


1. SU dung diéu khién dinh thi (Timer). 


Tao mOt chuOng trinh cho phép ngudi ding 15 giay dé nhap mat khau 
trong mOt TextBox. 


Néu ngudi ding khéng nhap mat khdu ding trong thi gian ndi trén, 
chuOng trinh hién thi thong bao “Time Expired” (Hét th0i gian) va déng 


chuong trinh. 
ThOi gian lam bai tap: 30 phtit. 


Giao dién dé nghi: 


Hinh 1.22: Giao dién 


e Nhdp vao mat khdau can thiét (gia st? mat khdu 1a: Secret) 
e Néu nhdp dting mat khdu, r6i nhap nut Nhap, m6t hOp thong bdo 
xuat hién vGi ndi dung: Ban dang nhap thanh cong. 


Line 3 
Line 4 
Line 5 
Line 6 
Line 7 
Line 8 
Line 9 
Line 10 


Hinh I.23: LOi dang nhap 


e Néu nhdp mat khau sai, r6i nhdp ntit Nhap, mOt thong bdo xuat 
hién vGi ndi dung: Xin loi, chung toi khong biet ban! 


Paiai thua la: 720 


Hinh 1.24: LOi dang nhap 


Sau d6 nhap ntit OK trén hép théng bao nay thi chUOng trinh cho ban 
nhap lai mat khau. 


e Néu thdi gian qua 15 giay ma ngudi ding chUa nhap ding mat khau 
thi mOt thong bdo sé hién Jén Xin loi, thoi gian da het; sau d6 chuong 
trinh sé két thiic. 


N= je200 
két qua: [2*o¥o"5*5 
n | Két thuc 


Hinh 1.25: Bao hét gid 


1. Thiét ké chuOng trinh tuong tu nhu Ung dung Canculator cUa 
Windows. 


Lap trinh xU ly giao dién & d6 hoa 

Muc tiéu: Chuong nay gidi thiéu vé cach tao menu citing nhu m6t s6 ham 
xU ly d6 hoa, nhttng thanh phan quan trong trong cac Ung dung chay trén 
Windows. 


Tap tin 

Muc tiéu: Chuong nay nham muc dich rén luyén sinh vién céc ky nang 
thao tac vGi hé th6ng tap tin cua Windows trong VB. Bén canh do, viéc 
hé thOng lai cdc kién thUc cUa cdc chUOng truc ciing 14 mOt muUc tiéu 
quan trong cUa chuOng. 

Hoc xong chuOng nay, sinh vién phai nam dugc cac van dé sau: 

- SU dung m6 hinh hé thOng tap tin. 

- Cach thUc truy cap tap tin tuan tu. 

- Cach thttc truy cap tap tin truy xudt ngau nhién. 

Kién thc c6 lién quan: 

Giao trinh Visual Basic, Chung 7. 

Tai li€u tham khao: 


- Visual Basic 6 Certification Exam Guide - Chapter 7, Page 191; Chapter 
13, Page 377 - Dan Mezick & Scot Hillier - McGraw-Hill - 1998. 


BAI TAP HUONG DAN 


Bai tap 3-1: 
XUAT NHAP TAP TIN VAN BAN 


Buc 1: Tao Project mGi tén Bt3-1 trong thu muc Basic\Bt3-1. Tao giao 
dién c6 dang sau: 


Project! - Microsoft Visual Basic [design] - [Form1 (Form)] 
Bile Edit view Project Format Debug Run Query Diagram Tools Add-Ins Window Help 218) x) 
|s-4-Blselteeeloo| >, y | MFR AD ty 12120 A sesxais 


Text 
Returns/sets the text contained in the 
‘control, 


Hinh III.1: Tap tin van ban 
Item 1 — ‘TextBox 
NameText1 

Height2220 

Width6630 

MultilineTrue 
ScrollBarsBoth 

Item 2 — CommandButton 
NameCommand1 
CaptionNew 

Item 3 — CommandButton 
NameCommand2 
CaptionOpen 

Item 4— CommandButton 


NameCommand3 


CaptionSave 

Item 5 — CommandButton 

NameCommand4 

CaptionPrint 

Item 6 — CommandButton 

NameCommand5 

CaptionCopy 

BuGc 2: Nut New co nhiém vu xéa van ban trong TextBox dé ta cd thé 
khdi tao mt tai liéu mi. Do dd, trong ham su kién Command1_Click, 
thém vao doan ma: 


Text1.Text = “” 


x i am 
GHI CHUOI LEN TAP TIN 
BuGc 3: O day ta nhap vao doan van ban réi ghi lén tap tin. Dé don gian 
ta doc va ghi tl m6t tap tin van ban duy nhat tén 1a vidu.txt nam trong 
thu’ muUc cUa du an cUa minh (6 day 1a thu mUc Bt5-1). Dé ghi én tap tin, 
trong ham sy’ ki@n Command3_Click, thém doan ma sau: 
'Ghi len tap tin 
Open App.Path & "\vidu.txt" For Output As #1 
'Ghi du lieu 
Print #1, Text1.Text 
"Dong tap tin 


Close #1 


MsgBox "Van ban da duoc luu" 

Bu@Gc 4: Viéc thao tac trén tap tin duc thuc hién nho thé tap tin. Thu 
chat day 14 m6t s6 nguyén chi bdi VB m6t lién két dén m6t tap tin xac 
dinh dé xuat hay nhap vao tap tin dé. O day 1a str dung #1. Cau 1énh 
Print str dung thé tap tin dé ghi van ban lén tap tin. Khi viéc ghi hoan tat, 
thé tap tin dugc dong lai nho cau 1énh Close. 


Budc 5: Chay Ung dung, nhdp nit Command3. Néu chuong trinh thuc 
thi t6t, ta cd thé m6 tap tin vidu.txt trong Notepad xem. 


DOC TU TAP TIN VAN BAN 


Buc 6: Doc tap tin tl dia tuOng tu nhu ghi tap tin. Chén doan ma sau 
trong ham xU ly su kién Command2_Click 


Text1.Text = '"" 

Close #1 

‘Mo tap tin 

Open App.Path & "\vidu.txt" For Input As #1 

Dim filetext As String ' Bien chuoi luu van ban 

Do While Not EOF(1) 

Input #1, filetext ' Doc tung dong 

' Hien thi trong TextBox, chu y them vao ky tu xuong dong 
Text1.Text = Text1.Text & filetext & vbCrLf 

Loop 


Close #1 


Bu6c 7: Chay Ung dung. Nhap nit Command2 dé doc tur tap tin vidu.txt 
vao TextBox. O day ta cé dinh nghia m6t bién trong 1énh 


Dim filetext as String 


O day, mdi lan ta doc tling dong trong tap tin vidu.txt; m6i lan doc nhu 
vay ta luu vao bién kiéu chuGi filetext; sau do ta n6i chuGi filetext vao 
sau chuOi Text1.Text (hién thi trong TextBox). Qua trinh trén duc thuc 
hién lién tuc dén khi doc hét ni dung tap tin nh vao vong lap: 


Do While Not EOF(1) 


EOF 1a m6t ham du@c dinh nghia san trong VB, ham nay cé nhiém vu 
kiém tra xem co dat dén cudi tap tin hay kh6ng? Néu ni dung tap tin 
van chua dudc doc hét, qua trinh doc van tiép tuc dén khi EOF la True. 


Input #1 


Doc m6t chudi tu tap tin cho dén khi gap ky tu xu6ng dong. Ky tu 
xuOng dong nay duc bo qua trong 1énh Input; do d6 néu mu6n hién thi 
thanh nhiéu dong trén TextBox, ta phai thém vao ky tu xu6ng dong cho 
m0i dong ta doc dudc tt tap tin sau d6 ta mi hién thi trén TextBox. 
Hang sO vbCrLf la su lién két 2 ky tu xuOng dong va vé dau dong. 


IN VAN BAN RA MAY IN 

Buc 8: Néu may in du@c nOi vao, may in phai du@c kich hoat. Ta cé thé 
kiém tra ching bang cach in thU vai dong van ban trong Word hay trong 
Notepad. 


BuGc 9: Di tudng Printer sé chi d6n may in mac dinh. Trong ham xU ly 
su kién Command4_Click chén thém doan ma: 


Printer.Print Text1.Text 
Cau 1énh nay ding dé in ndi dung trong TextBox ra may in. Tuy nhién ndi 


dung cUa TextBox chi du@c in khi chuong trinh cham dUt. Dé in ngay lap 
tlc, ta can phai thém dong sau: 


Printer.EndDoc 


CHEP DU LIEU VAO CLIPBOARD 

Buc 10: Trong nhiéu Ung dung, nhiéu khi ta can str dung df liéu qua 
lai vGi nhau. Chang han, ngudi ding co thé str dung dtr li€u dugc hién 
thi trén form hién thi cUa chuOng trinh ching ta sang chUOng trinh xt ly 
van ban Microsoft Word. Luc nay, mOt cach hiéu qua nhat 1a str dung ddi 
tuOng Clipboard, d6i tugng nay cho phép doc va ghi lén Windows 
Clipboard tl’ chuOng trinh Ung dung: 

Thém doan mA sau vao ham su’ kién Command5_Click: 

Clipboard.Clear 

Clipboard.SetText Text1.Text 

Déng ctta sO ma lénh lai va chay chung trinh Ung dung. Nhap mét 
doan van ban, sau d6 nhap Command5. TU Microsoft Word, sf dung 
menu Edit\Paste dé lay dt liéu tlr Clipboard hién thi. 


Bai tap 3-2 


THAO TAC VOI RESOURCE FILE 


Muc tiéu: Gitip lam quen vGi tap tin resource cUa VB, nhat 1a cUng c6 cdc 
thao tac trén tap tin. 


Buc 1: Tao thu muc Basic\Bt3-2. Tao mt du 4n mGi trong thu muc 
nay. 


Buc 2: Tao giao dién nhu hinh sau: 


[missing resource: .png] 


51234679108 

Hinh III.2: Tap tin resource 
Trong do: 

Item 1: Caption: Thong tin nguoi su dung 
BorderStyle: 3-Fixed Dialog 
StartUpPosition: 2-Center Screen 
Item 2: Label 

Name: |blHelp 

Index: 0 

Item 3: Label 

Name: |blHelp 

Index: 1 

Item 4: Label 

Name: |blHelp 

Index: 2 

Item 5: TextBox 

Name: txtHelp 

Index: 0 

Item 6: TextBox 


Name: txtHelp 


Index: 1 

Item 7: TextBox 

Name: txtHelp 

Index: 2 

Item 8: CommandButton 

Name: cmdHelp 

Index: 0 

Item 9: CommandButton 

Name: cmdHelp 

Index: 1 

Item 10: CommandButton 

Name: cmdHelp 

Index: 2 

Bu6c 3: Ta nhan thay cac diéu khién c6 cling mt tén hién thi (Thong 
tin). Muc tiéu cUa ta 1a sur dung tap tin resource (tai nguyén) dé thay di 
tén hién thi trén cdc di€u khién. Dé tao tap tin tai nguyén, ta vao mUc 
ADD-IN\ADD-IN MANAGER trén menu cUa VB. Trong caéc mUc cUa 


ADD-IN MANAGER nhap dtp vao resource editor va dong mUc ADD-IN 
MANAGER lai. 


Buc 4: Chon Tools\Resource Editor trén menu. MG String Table Editor 
bang cach nhap chu6t lén biéu tuong abc cUa Resource Editor. CUta s6 
soan thao cho tap tin tai nguyén sé m6 ra. Ta nhap cac hang nhu sau: 


ID RESOURCE STRING ID RESOURCE STRING 
1 Ten 7 So dt 

2 Ho 8 So CMND 

3 Ma nv 9 T. trang hn 

4 Huy bo 10 Huy bo 

5 Vo hieu hoa 11 Ve truoc 

6 Ke 12 Hoan tat 


Bu@Gc 5: Luu tap tin tai nguyén lai. 


Buc 6: M6 cla sO soan thao ma lénh. Tao kiéu do ngudi ding dinh 
nghia dé lu dt liéu can nhap vao. Thém doan mi sau: 


Private Type yeucau 
ho As String 

ten As String 

manv As String 

sodt As String 
socmnd As String 
tinhtranghn As String 
End Type 


BuGc 7: Ta thém 2 bién nffa; mOt bién lUu thong tin vé ngudi su dung 
(theo kiéu 6 trén), m6t bién lutu tht ty cac buGc ma ngudi su dung da 


nhap thong tin cua minh vao. 

Private chisobuoc As Integer 

Private cacyeucau As yeucau 

Bu6c 8: Trong chuong trinh nay, nguOi su’ dung phai nhap thong tin cua 
minh vao thong qua céc buGc nhap, trong d6 caéc diéu khién duc st 
dung nhu m6t mang cac diéu khién. Dé tan dung chting ta can khai bdo 
cdc hang sO dé biét hién thoi ngudi ding dang 6 buGc th may cUa qua 
trinh nhdp thong tin cling nhu biét dudc minh da nhap vao nit nhdn nao 
trong qua trinh trén. Do do, ta thém doan khai bao sau: 


'cac hang so 


Private Enum buoc 


buocl1 = 1 
buoc2 = 2 
buoc3 = 3 
End Enum 


Private Enum nhannut 

nuttrai 

nutgiua 

nutphai 

End Enum 

BuGc 9: ChuOng trinh nay thé hién trén m6t form duy nhat va st’ dung 
mang cac diéu khién dé tao cdc buGc dé ngudi ding nhap thong tin vao. 


Do dé ta sf dUng tap tin tai nguyén dé hién thi cdc tén ca diéu khién 
nham hién thi cho chinh xac. Vi thé ta can co mt ham (thU tuc) dé cap 


nhat théng tin nhap vao da vao céc bu6c cUa nguGi dung khi nhap 
thong tin vao. Vao Tools\Add Procedure dé thém thu tuc sau: 


Public Sub Hienthi() 

Dim i As Integer 

' Kiem tra cac buoc 

Debug.Assert chisobuoc = 1 Or chisobuoc = 2 

Fori=0 To 2 

‘ Nhan 

IblHelp(i).Caption = LoadResString((chisobuoc - 1) * 6 + (i + 1)) 
"Nut 

cmdHelp(i).Caption = LoadResString((chisobuoc - 1) * 6 + (i + 4)) 
If UCase(cmdHelp(i).Caption) = "VO HIEU HOA" Then 
cmdHelp(i). Visible = False 

Else 

cmdHelp(i). Visible = True 

End If 

txtHelp(i).Text = "" 

Next 

End Sub 


BuGc 10: Khi chuOng trinh thUc hién, ta phai 6 buGc tht? nhat ca qua 
trinh nhap liéu > Thém doan ma sau trong thu tuc xU ly su kién 


Form_Load: 

chisobuoc = 1 

Hienthi 

Bu6Gc 11: M6i khi co m6t nut nhdn dugc nhap, qua trinh nhap liéu 
chuyén sang buGc ké tiép; ngudi st’ dung cé6 thé di dén buGc ké tiép 
hay tr6 vé buGc truGc d6 trong qua trinh nay. Vi cdc nut nhan (button) 1a 
mOt mang diéu khi€n (control array) nén ching co cung m6t su kién 
Click tac d6ng vao goi 14 cmdHelp_Click. Ham xU ly nay cé tham sé la 
m0t chi s6 kiéu Integer dé nhdn biét ntit nhan nao dugc nhap. O day, ta 
thém doan ma sau trong ham xU ly su kién nay. 

Private Sub cmdHelp_Click(Index As Integer) 

Select Case chisobuoc 

Case buocl 

cacyeucau.ten = txtHelp(0).Text 

cacyeucau.ho = txtHelp(1).Text 

cacyeucau.manv = txtHelp(2).Text 

Case buoc2 

cacyeucau.sodt = txtHelp(0).Text 

cacyeucau.socmnd = txtHelp(1).Text 

cacyeucau.tinhtranghn = txtHelp(2).Text 

End Select 


"Cac nut nhan 


Select Case Index 


Case nuttrai 

"Huy bo 

End 

Case nutgiua 

"ve truoc 

chisobuoc = buocl 
Hienthi 

Case nutphai 

' di toi 

chisobuoc = chisobuoc + 1 
If chisobuoc = buoc2 Then 
Hienthi 

Else 

Guiyeucau 

End If 

End Select 


End Sub 


BuGc 12: Khi qua trinh nhap thong tin két thtic, thong tin nay du@c luu 
vao trong mt tap tin van ban, nho thu tuc Guiyeucau. Thém thu tuc 
Guiyeucau vao nhO muc Tools\Add Procedure va nhap doan ma sau: 


Public Sub Guiyeucau() 


On Error GoTo Guiloi 

' Lay the tap tin 

Dim intFile As Integer 

intFile = FreeFile() 

' Viet len tap tin 

Open App.Path & "\yeucau.txt" For Output As #intFile 

Print #1, "ho: " & cacyeucau.ho 

Print #1, "ten: " & cacyeucau.ten 

Print #1, "manv: " & cacyeucau.manv 

Print #1, "sodt: " & cacyeucau.sodt 

Print #1, "socmnd: " & cacyeucau.socmnd 

Print #1, "tinhtranghn: " & cacyeucau.tinhtranghn 

Close #intFile 

MsgBox "Yeu cau cua ban da duoc goi di", voOKOnly + vbInformation, _ 
"Gol yeu cau" 

End 

Exit Sub 

Guiloi: 

MsgBox Err.Description, voOKOnly + vbExclamation, "Goi yeu cau" 


Exit Sub 


End Sub 


Buc 13: Luu va thuc thi chuOng trinh. 


Bai tap 3-3 

CHU'ONG TRINH XU' LY VAN BAN DON GIAN 
GIAO DIEN DA TAI LIEU 

Bu@Gc 1: Tao mét du 4n luu trong thu muc Basic\Bt3-3. 


Giao dién da tai liu (MDI Form) g6m m6t ctra s6 cha chUfa nhiéu cUta s6 
con (chang han nhu cac chuOng trinh Microsoft Word, Excel dugc t6 
chUc theo dang nay). Dé thém vao du an, ta chon mUc Project\Add MDI 
Form tUf menu cUa VB. 


Bu@Gc 2: Ta cho Form1 tré thanh m6t cUra s6 con cUa MDI Form bang 
cach chon thu@c tinh MDIChild = True. 


HAM MAIN (SUB MAIN) 


Buc 3: Trong chuOng trinh ta can diéu khién moi thu ké ttt khi cdc ctta 
sO con cua MDI Form xuat hién, do dé ta can phai bat dau thuc thi 
chuOng trinh cUa ta tt ham Main (Sub Main). Ta chon mUc Project\ Add 
Module dé thém m6t Modul vao du an cUa minh, sau d6 ta chon 
Tools\Add Procedure dé thém ham Main vao (Public Sub Main); ham nay 
ta dung dé bat dau goi thuc thi chuOng trinh cUa minh. Dé chon thu thi 
chuOng trinh tl’ ham Main, chon Project\Properties; chon Start up Object 
la Sub Main. 


Buc 4: Thém dong 1énh sau vao ham Main: 
MDIForm1.Show 


BuGc 5: ChuOng trinh can cé m6t hé thong menu dé goi thuc thi. Do do, 
chon MDI Form, sau do chon Tools\Menu Editor dé tao menu sau: 


Menu NameMenu Caption 
mnuFile&File 

mnuFileNew &New 
mnuFileOpen&Open... 
muFileSave&Save 

mnuFileBar- 

mnuFileExitE&xit 

Bu6c 6: Ta xu ly su kién mnuFileExit_Click nhO doan ma sau: 
Private Sub mnuFileExit_Click() 
Dim f As Form 

' Thoat cac cua so con 

For Each f In Forms 

If TypeOf f Is Form1 Then 
Unload f 

Set f = Nothing 

End If 

Next 

' Thoat cua so cha 

Unload Me 


End Sub 


Buc 7: Dé tao ra m6t tai liéu trang cho chuOng trinh xU ly van ban, ta 
can phai cé m6t TextBox trong Form]. Ngu6i su’ dung danh ndi dung vao 
TextBox, do d6 ta thém mOt TextBox vao Form1 v6i cac thu6c tinh sau: 
MultiLine: True 

ScrollBars: 2-Vertical 

Ta xU ly su kién Form_Resize cUa Form1 nhu sau: 

Private Sub Form_Resize() 

Text1.Height = Me.ScaleHeight 

Text1.Width = Me.ScaleWidth 

Text1.Left = 0 

Text1.Top = 0 

End Sub 

Buc 8: M6i lan chon muc New trén cUfa s6 chuOng trinh Ung dung, mét 
khung cUfa sO trang hién ra dé ta nhap van ban vao. Do dé, thém doan ma 
sau trong thu tuc xU ly su kién mnuFileNew_Click: 

Private Sub mnuFileNew_ClickQ) 

Dim f As Form1 

Static n As Integer 

Set f = New Form1 

f.Text1.Text = "" 

n=n+1l 


f.Caption = "Document " & Format(n) 


f.Show 


End Sub 


THAO TAC TREN TAP TIN 

BuGc 9: Ta can phai cé hp thoai nham chon tap tin dé uu (hay mé tap 
tin) trong chUOng trinh xU ly van ban. Do d6 ta can thém m6t Dialog 
Control vao chuOng trinh. Danh dau vao mUc chon Microsoft Common 


Dialog Control 6.0 (SP3). Sau d6 ta thém Dialog Control tu’ ToolBox vao 
MDIForm1. Ta xu ly su kién mnuFileSave_Click nhd doan ma sau: 


Private Sub menuFileSave_Click() 

Dim tenfile As String 
CommonDialog1.ShowSave 

tenfile = CommonDialog1.FileName 

Open tenfile For Output As #1 

Print #1, MDIForm1.ActiveForm.Text1.Text 
Close #1 

End Sub 


Buc 10: Khi mUc Open cUa menu du@c chon, hdp thoai Open File dudc 
mé@ ra > su kién mnuFileOpen_Click duc xU ly nhu sau: 


Private Sub mnuFileOpen_ClickQ) 
Dim tenfile As String, s As String 
CommonDialog1.ShowOpen 


tenfile = CommonDialog1.FileName 


If UCase(Right(tenfile, 3)) <> "TXT" Then Exit Sub 

Call mnuFileNew_Click 

Open tenfile For Input As #1 

Do Until EOF(1) 

Line Input #1, s 

Me.ActiveForm.Text1.Text = Me.ActiveForm.Text1.Text & s & vbCrLf 
Loop 

Close #1 

End Sub 


BuGc 11: Luu du an va chay chuong trinh. Tao m6i, uu, m6 mét sO tai 
li€éu. Nhan xét két qua. 


Bai tap 3-4 
THAO TAC VOI DOI TUONG WORD 
Muc dich: Windows cé san mOt sO d6i tung khi ta cai dat Windows hay 


khi cai m6t sO phan mém. Bai tap nay gitip ta tim hi€u cach thUc truy 
xuat cac d6i tuOng cé san nay tU Visual Basic. 


THAM CHIEU DOI TUONG 


Bu6c 1: Tao thu muc Basic\Bt3-4. Khdi dong mot du dn mGi trong thu 
mUC nay. 


BuGc 2: Trong bai tap nay ta cé tham chiéu dén déi tugng Word cua 
Microsoft Word; do dé ta phai cé thao tac tham chiéu dén d6i tuong nay 
trong man hinh soan thao VB bang cach: Chon Project\References trén 


menu. Trong cUfa sO References, thiét lap tham chiéu dén: Microsoft 
Word 9.0 Object Library va Microsoft Office 9.0 Library. Sau d6 déng cUta 
sO References lai. 


Buc 3: Ta c6 thé kiém tra cdc d6i tung trén cé6 dudc dua vao hay chua 
nhd thao tac: Chon View\Object Browser. 


XAY DUNG U'NG DUNG 


BuGc 4: Tao giao dién chuOng trinh c6 dang sau: 


[missing resource: .png] 
123456 

Hinh III.3: Thao tac v6i d6i tudng Word 
Trong do: 

1: TextBox 

Name: txtWord 
Multiline: True 
ScrollBar: 2-Vertical 

2: CommandButton 
Name: cmdLuu 
Caption: LUu 


3: CommandButton 


Name: cmdTruoc 

Caption: Truc khi in 

4: CommandButton 

Name: cmdCTa 

Caption: Kiém 106i. 

5: CommandButton 

Name: cmdThoat 

Caption: Thoat 

6: CommandButton 

Name: cmdGiup 

Caption: Trd gitip 

BuGc 5: Dé st dung dugc mé hinh, ta phai khai bao m6t s6 bién d6i 
tugng cUa Word. Trong phan [General]\ [Declarations], khai bao nhting 
bién sau: 

Public ungdung As Word.Application 

Public tailieu As Word.Document 

Public trogiup As Office. Assistant 

BuGc 6: Khi chung trinh thc hién, diéu ta mu6n 1a m6t tai liu mdi 
cUa Word du@c tao ra dé ta cé thé thao tac trén ching m6t cach gian tiép 
thong qua chUOng trinh VB cUa minh. Tao m6t tai li@u Word mdi tuong 
duong vGi viéc tao ra mOt thé hién cUa d6i tuoOng Document. Vi thé, 


chén doan ma sau vao thU tuc Form_Load dé tao ra m6t tai li@u Word 
m6i tU chuOng trinh VB. 


Set ungdung = CreateObject("Word.Application") 
Set tailieu = ungdung.Documents.Add 
Set trogiup = ungdung. Assistant 


BuGc 7: Nut Luu cé nhiém vu ghi tat ca nhting gi trén TextBox vao di 
tuOng Word mdi tao ra. Do do, ta xU ly su ki@n cmdLuu_Click nhu sau: 


'Ghi tai lieu moi 

tailieu.Content.Text = txtWord.Text 

MsgBox "Van ban duoc luu trong Word", voOKOnly, "Word" 

Buc 8: Nut TruGc khi in c6 nhiém vu hién thi tai li€u Word giOng nhu 
khi ching duc in ra giay; vi thé su kién cmdTruoc_Click dudc xt ly 
nhu sau: 

tailieu.PrintPreview 

ungdung. Visible = True 

ungdung.Activate 


BuGc 9: Nut Kiém 16i thuc hién thao tac kiém 16i chinh ta cho tai liéu 
Word, thao tac nay dudc xU ly trong thu tuc cmdCTa_Click: 


tailieu.CheckSpelling 
txtWord.Text = tailieu.Content.Text 


BuGc 10: Nut Thoat sé déng cUfa s6 chtfa tai li€u Word lai. Chén doan ma 
sau trong thU tuc cmdThoat_Click dé déng Word lai: 


ungdung.Quit SaveChanges = False 


BuGc 11: Khi ta nhap vao nut Tr@ gitip thi cla s6 Help cUa Office hién ra. 
Do do, thém doan ma sau trong thU tuc cmdGiup_Click dé mé ctta s6 


Help cua Office: 

ungdung. Visible = True 

ungdung.Activate 

trogiup.Help 

Bu6c 12: Luu dy an va chay chuOng trinh. Nhap vai dong van ban vao 
TextBox va nhap nut Luu. MOi khi van ban dugc luu, ta nhap nuit Trudc 
khi in dé xem tai li€u truGc khi. Khi van ban dugc hién thi, nhap nut 


Kiém 16i. Sau d6 tht nhap ntit Trd gitip dé xem phan gitip dG cUa Office. 
Cui cing nhap nut Thoat dé thoat khdi Word. 


BAI TAP TU LAM 
1. Thiét ké chuOng trinh nhu Ung dung Notepad cla Windows. 
e Thiét ké giao dién 


Hinh III.5: Giao dién Notepad 


#, Project! - Microsoft Visual Basic [design] - [Project! - Form! (Form)] 


[r1 File Edit View Project Format Debug Run Query Diagram Tools Add-Ins Window Help | 


Project1 (Project1.vbp) 
1-9 Forms 

i, Formi (Form1 frm) 
(4) ( Related Documents 


True 
WB axoo000c 

1 - Transpare 
|Font M5 Sans Serif 
Caption 


Returns/sets the text displayed 
in an object's title bar or below an 


Trg glip | 


e XU ly cdc su kién 


¢ MOi khi Form thay d6i kich thuGc, TextBox cting thay d6i theo cho 
phi hop vGi Form 

e New 

e Open, Save, Save As: md hdp thoai Common Dialog cho phép chon 
tap tin dé mG hay luu. SUr dung di tugng FileSystemObject dé thao 
tac vGi tap tin van ban. 

e Exit 

e Font Setting: MO ra hdp thoai chon Font, thiét lap Font cla TextBox 
chinh 14 Font duc chon trong hOp thoai. 


e XU ly m6 rng: 


e Khi ngu0i ding da luu tap tin r6i, lan tht? hai bam vao Save thi 
khong mé h6p thoai Common Dialog nifa ma sé ]Uu vGi tén tap tin 
da chon trong lan Save dau tién. 

¢ MOi khi ngudi ding thay d6i ndi dung cUa m6t tap tin, sau d6 ho 
chon Exit dé déng Ung dung lai; m6t hOp théng diép (Message Box) 
s@ m6 ra hoi co |uu tap tin hay khong? 

e Dai ly Minh Thanh cla c6ng ty Unilever Viét Nam tai Can Tho can 
quan ly thong tin vé cdc mat hang ma dai ly nhan tU cng ty. Cac 
thong tin can quan ly g6m: Ma mat hang, tén mat hang, don vi tinh, 
gid cua mat hang do. Cac thong tin nay dudc m6 ta nhu sau: 


Type HangHoa 

MaHang As String*5 

TenHang As String*40 

DVTinh As String*15 

Gia As Double 

End Type 

Dva vao thong tin m6 ta trén, Anh (Chi) hay: 


1. Tao dy an m6i va viét cdc khai bao thich hgp. 
2. Thiét ké Form chinh nhu sau: 


Notep: ad (=[6{xJ 
ct 


Hinh III.6: Giao dién chinh 


1. Khi ngui ding chon muUc Thoat, rdi nhap chon ThUc hién, chung 
trinh chém ditt. Viét ma lénh dé xt ly d6i vGi tr'uOng hgp nay. 

2. Khi ngu0i ding nhap chon Nhap liéu, r6i Thc hién, mOt Form sé 
m6 ra cho phép nhap thong tin hang hda vao. Hay thiét ké Form nay 
vGi cdc chUc nang nhu hinh du@i: 


i. Notepad BEES 


Hinh III.7: Form nhap liéu 


1. M6i khi ngu0i ding nhdp thong tin vao cdc 6 TextBox, r6i chon nit 
nhan Nhap, nhting thong tin dé sé dudc luu lén lui hién thi. Khi 
chon Ghi tap tin, m6t hdp thoai (Common Dialog) luu tap tin hién 
ra cho phép chon duGng dan va tén tap tin, sau do ghi nhting thong 
tin trén lUGi vao tap tin da chon (v6i cau tric tap tin dudc mé ta 6 
phan dau). Nut nhdn Thoat sé d6éng Form nay lai, tré vé Form chinh 
ban dau. Viét cac doan xUly thich hgp. 

2. O Form chinh ban dau (hinh III.6), khi ngui ding chon Hién thi 
théng tin hang héa, mOt hOp thoai md tap tin (CommonDialog) hién 
ra cho phép chon tén tap tin chUfa dtr li€u vé hang hoda da duc tao ra 
6 cau e. Sau dé doc dt liéu tl tap tin r6i hién thi trén lu6i: 


(Dai ly Minh Thanh 


Hinh III.8: Doc tu tap tin 


Hay thiét ké Form va viét ma lénh xt ly cdc su ki@n thich hop. 


cO sO pU LIEU SU DUNG 


Cac chuOng ké tiép 1a phan ldap trinh Visual Basic truy xuat co sé dt liéu 
(CSDL). Trong cdc bai tap trén CSDL, ta cé su’ dung CSDL 
HangHoa.MDB cla Access. Co s6 dt li€u nay da cé san, sinh vién c6 thé 
lién hé cén bO giang day dé lay vé. Thong tin cdc bang (Table) cua 
CSDL nay nhu sau: 


TLOAIHANG(MaLoai, TenLoai): M6i loai hang hda c6é ma loai va tén 
loai. 


THANGHOA(MaHang, TenHang, DVTinh, MaLoai). MOi hang héa cé ma 
hang hoa, tén hang hda, don vi tinh va chi thu6c 1 loai hang héa nao do. 


TNHANVIEN(MaNV, HoTen, Phai, Diachi, Ngaysinh, Luong, Ghichu): 
MOi nhan vién cé mA nhan vién, ho tén, phai, dia chi nhan vién, ngay sinh, 
lung cUa nhan vién dé 1a bao nhiéu va cé thé cd mét vai ghi chi vé nhan 
vien do. 


TPHATSINH(SOTT, Ngay, Loai, Fieu, Hten, Lydo, MaHang, Solg, Dgia, 
MaNV): MOi m6t phat sinh dugc ghi nhan thanh m6t chUng tl c6 SoTT, 
ngay phat sinh chUing tUy, loai phat sinh 14 nhap (hay xuat)..., sO phiéu, ho 
tén khach hang, ly do phat sinh Ung vGi hang hda nao (ma hang), s6 lugng 
va don gia la bao nhiéu, nhan vién phu trach phat sinh la gi (MaNV). 


m. Thong tin hang hoa 


Déu gdi Clear 
BsSt giat OMO 


Ddéu gdi Sunsilk 
Fem danb ring PS 


Siva tam Johnson : Chai 


ABOS 


Siva tam Johnson 


Bang quan hé gitfa cdc Table nay nhu sau: 


Cac m6i quan hé cua CSDL HangHoa.mdb 


Khai niém co ban vé co sé dt liéu 
Muc tiéu: Chuong nay gidi thi€u vé m6t sO khai niém trong lap trinh co 
sO dtr liéu vdi VB, nhttng van dé can thiét khi thiét ké cdc ting dung 
truy cap co so dt liéu. 
Hoc xong chuOng nay, sinh vién phai nam bat dugc cdc van dé sau: 
- M6t s6 khai niém khi lap trinh co sé dt liéu trong VB. 
- Phan biét DAO, RDO, ADO. 
- SU dung méi truOng phat trién VB dé tuong tac v6i co s6 dt liéu. 
Kién thc c6 lién quan: 
- Cau lénh SQL dé truy van dt liéu. 
Tai li€u tham khao: 
- Microsoft Visual Basic 6.0 va Lap trinh Co sé df liéu - Chuong 18, 
trang 447 - Nguyén Thi Ngoc Mai (chu bién), Nha xuat ban Gido duc — 
2000. 
Co sé dt liéu 
Khai niém 
Co sé df liéu 1a m6t kho chUa thong tin. Cé nhiéu loai co sd dt liéu, 
nhung trong khu6n kh6 bai giang nay ta chi quan tam dén cac Ung dung 
lap trinh lién quan dén co sé dtr liéu quan hé. 
MO6t co so dé liu quan hé: 

e Chtra df liéu trong cdc bang, du@c cau tao bdi cdc dong con goi la 


cdc mau tin, va cOt con goi la cdc truOng. 
e Cho phép lay vé (hay truy van) caéc tap hop dU liéu con tl cdc bang. 


¢ Cho phép ni cac bang vGi nhau cho muc dich truy cap cdc mau tin 
li€n quan vGi nhau chtfa trong cdc bang khac nhau. 


BO may (Engine) co sO di liéu 


Chic nang co ban cUa m6t co sG df liéu dudc cung cap bdi mot b6 may 
co sO dt liéu, 1a hé thong chuOng trinh quan ly cach thUc chUfa va tra vé 
dtr liéu. 


Chang han Microsoft Jet 1a b6 may co sO dt li€u duc str dung khi truy 
cap dU liéu Access. 


Bang (Table) va truOng (Field) 


Cac co sO df li€u dudc cau thanh ttr cdc bang ding thé hién cac phan 
nhom dtr liu. Chang han, néu ta tao mét co s6 dtr li€u dé quan ly cac 
tai khoan trong c6ng viéc kinh doanh, ta phai tao m6t bang cho Khach 
hang, mOt bang cho Hoa don va m6t bang cho Nhan vién. Bang c6é cau 
tric dinh nghia san va chUa dt liéu pht: hop voi cau tric nay. 


¢ Bang: chUa cdc mau tin 1a cc mau dU liéu riéng ré bén trong phan 
nhoém d@ liéu. 

e Mau tin: chtta cdc truOng. MOi trudng thé hién mt b6 phan dtr 
liéu trong m6t mau tin. Vi dy nhu mOi mau tin thé hién mot mUc 
trong danh ba dia chi chta cdc truOng tén va ho, dia chi, thanh pho, 
sO dién thoai... 


Ta c6 thé ding chuoOng trinh Visual Basic dé tham chiéu va thao tac vGi 
co sO dtr liéu, bang, mau tin va cdc truOng. 


Tap mau tin (Recordset) 


Recordset 1a mOt cau tric dt li€u thé hién mOt tap hp con cdc mau tin 
lay vé tu'co s6 dt liéu. Vé khai niém, n6é tuong tu nhu m6t bang nhung 
co thém m6t vai thu6c tinh riéng biét quan trong. 


Cac Recordset dudc thé hién nhu cac d6i tudng. Ciing nhu cac di tuong 
khac trong Visual Basic, cac d6i tuOng recordset c6 cc thudc tinh va 
phuong thUrc riéng. 


Truy xuat co s6 dir liéu trong Visual Basic 6.0 


Visual Basic cung cap kém theo no m6t b6 may co sé dt liéu cé thé hiéu 
duoc dt liéu cua Microsoft Access gi 1a Joint Engine Technology (JET). 
JET 1a mOt b6 may truy cap co sé dt liéu huGng di tudng va né 1a mot 
phan khong thé thiéu dudc cUa Visual Basic. Phién ban cUa JET di kém 
vGi VB 6.0 la mién phi nghia la VB cé thé truy xuat truc ti€p co s6 dt 
li€u cUla Microsoft Access. Giao dién dé VB truy xuat JET cé tén 1a Data 
Access Objects (DAO). 


JET 14 m6t b6 may co sé di liéu tuyét vdi cho cdc Ung dung van phong 
chay trén may don, nhung hiéu suat cUla no giam dang ké khi s6 luong 
ngudi ding tang lén va co sO dt liu dudc m6 réng. Vi diéu nay JET 
khéng phai la m6t giai phdp tOi Uu cho cdc Ung dung co sé dt liéu nhiéu 
ngudi ding. Cho dén nay ngudi ta chUa cé mOt thong ké chinh xdc dudc 
kich thuéc df liéu toi da hay s6 luong ngudi ding tdi da cUla JET nhung 
nhin chung JET bi gidi han nhiéu hon so vGi cac giai phap khac trong méi 
trudng da ngudi ding. Tuy vay, JET 1a diém khdi dau t6t nhat cho ngudi 
lap trinh VB bdi vi su don gian cUa no. 


Khi kich thu6c dtr li€éu tang 1én, ngudi lap trinh bao gid cing muOn xay 
dung mét Ung dung Khach/Chu (Client/Server) cé kha nang bao mat cao 
va linh hoat. Vi 16 d6, Microsoft h6 tro trong VB dé truy cap cac co s6 
dtr li€u quan hé dugc théng dich bdi chuan Open Database Connectivity 
(ODBC). ODBC 1a m6t ky thuat cho phép truy cap cdc co s6 df liéu 
quan hé cao cap nhu SQL SERVER hay ORACLE. Tuy nhién, ODBC 
cing cé thé dudc st dung dé truy cap cac co sO dt liéu nho t6 chttc 
bang Microsoft Access hay Foxpro, tham chi cdc co s@ dt? liéu may chu 
nhu IBM DB2. Visual Basic str dUng giao dién d6i tugng Remote Data 
Objects (RDO) dé truy cap ODBC. 


DAO va RDO 1a nhting ky thuat ho tro viéc truy xuat dén caéc co sé dir 
li€u quan hé. Tuy nhién, Microsoft lai cung cap m6t cong cU httu ich hon 
dé truy cap dt liéu goi la OLEDB. OLEDB 1a ky thuat cho phép dt liéu 
duQc truy xuat tl’ ca 2 ngudn co sé dt liéu: quan hé va khéng quan hé. 
Diéu dé cé nghia la g6m cdc co sO dt liu cla Microsoft Access, Oracle, 
SQL SERVER va ca cac nguOn df li€u kh6ng quan hé nhu Excel, 
Microsoft Index Server, Microsoft Exchange, Active Directory... Visual 
Basic stf dung giao dién di tugng ActiveX Data Objects (ADO) dé truy 
cap OLEDB. 


Visual Basic cung cap cho ta nhiéu cong cu dé truy cap di liéu nhu 
DAO, RDO, ADO. Cau hoi thuOng dat ra la: KY thuat nao duc su dung 
lic nao 6 dau? Nhiéu nguGi cho rang DAO & RDO da 16i thdi va ngudi 
ta hiém sUr dung chting. That ra DAO & RDO 1a cac dién hinh cho mét 
vai kha nang tiéu biéu cua ADO. Hién nay, van con kha nhiéu Ung dung 
su dung DAO & RDO va that su ching bi gidi han trong chUng mUc nao 
d6. OLEDB thuc su’ cung cap m6t kha nang r6ng 16n dé truy cap cac co 
sO dt liéu tl nhiéu ngu6n khéc nhau. Tuy vay, trong mOt sO trudng hop 
mt giai phép ding RDO lai hu dung hon ADO. 


Ding Visual Basic dé tao mét co s6 df liéu 


Thong thuOng chiing ta sé sU dung cdc hé quan tri co sO dt liéu dé tao 
nén m6t co sé dt liéu, nhung trong phan nay ta sé xét qua tinh nang tao 
co sO dif liéu bang Visual Basic 6.0. Ta co thé ap dung phuong phap nay 
cho nhiing co sé dt liéu nho va tung thich v6i Microsoft Access. 


SU dung cla s6 co s6 df liéu 


e TU Menu cUa VB6, chon mUc Add-Ins, Visual Data Manager. CUfa sO 
Visual Data Manager sé xuat hién. 

e Chon muc File -> New -> MicroSoft Access -> Version 7.0 MDB. 

e Chon thu muc ta mu6n luu co sO df liéu va tén cUa co sO dt liéu. 


[missing resource: .png] 
Hinh VIII.1 Ctra s6 Visual Data Manager 
Tao bang 


¢ Dé tao mdi mt bang, ta chon Properties trong cUfa sO Databases, 
nhap chudt phai, chon New Table, dat tén cho Table tai 6 Table 
Name, an Add Field dé tao mGi cdc truOng cho bang. 


[missing resource: .png] 
Hinh VIIL.2 Ctta s6 tao Table 


e Tasé@ nhdap tén truOng tai 6 Name, chon kiéu cUa truOng tai Combo 
Type, tty chon FixedField va VariableField xdc dinh d6 dai cua 
truOng 1a c6 dinh hay thay d6i. 

e Sau khi xdc dinh day du cac thu@c tinh cUa trudng, an OK va tiép 
tuc thém vao cdc truOng khac cho bang. Néu da thém mdi day du 
cdc truOng cUa bang, an Close dé quay vé cUfa s6 Table Structure. 

e Sau khi quay vé cUfa sO Table Structure, ta sé xdc lap cdc chi muc 
citing nhu khda chinh cUa bang. 


[missing resource: .png] 
Hinh VIII.3 Ctra s6 tao khda chinh va chi muc 


¢ Tai 6 Name, ta sé nhap vao tén cUa chi muc, r6i chon cac trudng 
tham gia vao chi mUc d6. Néu ta chon Primary thi dé chinh 1a cdc 
truOng cau thanh khéa chinh cUa bang. Chon Unique tlc 1a gia tri 
cua chi mUc d6 sé khGng cé su tring lap. 

e An Close xac nhan rang ta da xay dung xong tap cac chi muc cla 
bang. 


e Sau khi da hoan thanh tat ca cac thao tac trén, dé tao bang ta an 
Build the Table. 


Tuy rang day 1a m6t tinh nang mdi cUa VB6, tuy nhién ching ta cting sé 
gap phai rat nhiéu bat tién khi phai thiét ké m6t co sé df liéu hoan 
chinh cing nhu trong qua trinh bao tri va su dung (kh6 khan trong viéc 
thay d6i cdc thuéc tinh da xdc lap, khéng tao lién két gitta cdc bang dudc 
...). M6t phu‘ong cach t6t nhat dé 1a nén ding cdc hé quan tri co sd dt 
liéu chuyén ding dé thc hién céng viéc néu trén. 


[missing resource: .png] 


Hinh VIII.4 Tao bang cho co s6 dtr liéu 


Ding Visual Data Manager dé tao giao dién 


Ta co thé thiét k6é mOt Form nhap liéu don gian cho m6t Table tl Visual 
Data Manager. Cac buGc tién hanh nhu sau: 


e TU Visual Data Manager chon Co sé dt liéu can thao tac. 

e Chon Data Form Design tl’ muc Utility. 

e Chon Table can cho viéc tao Form va cac truOng hién thi trén Form 
(thong thuOng ching ta sé cho hién thi tat ca cdc truOng). 

Chon Build the Form, biéu mau mdi da dudc tao trong dé an cua 
chung ta. 


[missing resource: .png] 
Hinh VIIL5 Thiét lap cdc thuéc tinh cho Form 


Két qua sau khi ching ta xay dung Form bang Visual Data Manager: 


= VisD ata:D-\DINH\Bai_giang = 
File Utility indow Help 


| oss es | a ee | Ss 


SU dung cla s6 xem di li€u (Data View) 


VB6 con h6 tro cho ngu6i lap trinh kha nang lam viéc vdi co sé dt liéu 
ma khong phai thong qua cong cu quan tri co sO dt liéu hodc cdc céng 
cu trong Add-In. Céng cu nay chinh 1a cla s6 Data View. 


e TU Menu cUa VB chon Data View hoac nhan ntit Data View trén 
thanh c6ng cu. 

* Ctra sO Data View xudat hién cho ta hai lua chon: Data Links va Data 
Environment Connections. 


[missing_resource: .png] 
Hinh VIII.6 Ctra s6 Data View 


Lién két dt li€u (Data Link) 14 m6t cach két n6i méi truOng phat trién 
cUa VB6 vGi mOt co sO dt liéu nao d6. MOt két ni méi trudng dt liéu 
(Data Environment Connection) 1a cach thUc su’ dung co sé di liéu trong 
m0t dé an cu thé. Diém khac biét gitfa hai thanh phan nay 1a sy lién quan 
gitta co sO dir li€u vi dé an cu thé. 


Dé su dung co sé dt liéu theo kiéu Data Link, ta ti€n hanh nhu sau: 


e Chon Data Links, an chudt phai -> Add a Data Link hodc an ntit 
Data Link trén thanh cong cU cUa cUa sO. 
e CUtas6 Data Link Properties xuat hién. 


[missing resource: .png] 
Hinh VIII.7 H6p thoai Data Link Properties 


e Chon trinh cung cap Microsoft Jet, chon Next. 
e Chon co so df liéu mu6n noi két dén, nhan OK. 


Lién két dé liéu cung cap m6t cach nhin tom lugc vé ngudén dt liéu. 
M6i lan ta tao mOt lién két dif li€u, ta c6 thé duyét bang cach mG r6ng 
phan tUf trong danh sach tom lugc. Thuc hién diéu nay bang cach nhan 
vao dau cOng bén trai mOi phan tt (hinh VIII.8). 


[missing resource: .png] 

Hinh VIII.8 Ctra s6 Data View 

SU dung diéu khién d@f liéu dé tao giao dién ngudi str dung 

Diéu khién dif liéu gitip cho ngudi sUr dung lién két biéu mau cUa minh 
dén nguén co sé dt liéu. Diéu khién dtr li€éu cung cap cho ngudi sur 
dung nhting tinh nang xt ly df liéu co ban nhu duyét qua cdc mau tin, 
thém m6i, cap nhat. 

DOi vGi phién ban VB6 cung cap cho ching ta 3 trinh diéu khién d@ liéu: 


DAO (Data Access Object), RDO (Remote Data Object) va ADO (ActiveX 
Data Object). 


Két ni v6i co s6 di liéu va lam viéc v6i cac m@u tin thong qua diéu 
khién ADO Data 


Hién thi d@liéu 


Néu nhu ching ta xay dung mt biéu mau chi dé hién thi cdc mau tin 
cUa m6t bang, diéu nay rat don gian va ta khéng can phai lap trinh gi 
ca. 


Dé stv dung diéu khién ADO Data, ta can danh dau Microsoft ADO Data 
Control 6.0 (OLEDB) trong hép thoai Components. 


[missing resource: .png] 
Hinh VIII.9 H6p thoai Components 


Chon diéu khién ADO Data ttr hép céng cu dua vao biéu mau, lién két 
dén ngu6n dv liéu théng qua hai thu6c tinh ConnectionString va 
RecordSource. 


e ConnectionString: Xac dinh nguOn dt liéu can ndi két, d6 chinh 1a 
chu0i ndi két chi dén co s6 dt liéu ma ta thao tac. 

e RecordSource: Xac dinh xem ndi két cUa ta dang thao tac trén bang 
nao. 


Vi du:Tao m6t ndi két dén co sG df liéu "C:\Program Files\Microsoft 
Visual Studio\VB98\Biblio.mdb". 


e Chon Use Connection String, an Build. 

e Chon Microsoft Jet 4.0 OLE DB Provider. 

¢ Chon co sé dt liéu nhu vi du. 

e AnOK. 

¢ Quay vé cUfa sO Property Pages, chon Tab RecordSource, xac dinh cac 
tury chon nhu hinh vé. 

¢ An Close. 


[missing resource: .png] 


Hinh VUI.10 Tuy chon RecordSource 


Sau khi da xac dinh dugc n6i két, ta van khong thay duc su hoat dOng 
cUa diéu khién dt? li€u, nguyén nhan do ching ta khong c6é diéu khién dé 
hién thi nOi dung, cach gidi quyét van dé 1a ding diéu khién TextBox 
hién thi dtr liéu. 

Dé ding diéu khién Textbox hién thi d(f liéu, ta xdc dinh hai thu6c tinh 
sau day cua diéu khién: DataSource, DataField. Cac thu6c tinh nay xac 
dinh nguOn df liéu va tén truOng, d6i vdi vi du nay dé 1a Adodcl (tén 
cua ADO Data) va Au_Id. 


e Thuc thi dé an, ta duoc két qua sau: 


[missing resource: .png] 


Hinh VIII.11 Vi du dtng ADO Data 


Cap nhat d@liéu 
Thao tac cap nhat dif liéu cting kha don gian, diéu khién ADO Data sé 


tu dOng cap nhat lai gia tri cua mu tin hién hanh mOi khi ta duyét qua 
mau tin khac, vi vay ta cing khong phai lam gi ca. 


Thém m6i mu tin 
Dé c6 thé thém m6i mau tin, ta cd hai phuOng cach nhu sau: 


¢ Thiét lap thudc tinh EOFAction cUa diéu khién ADO Data la 2- 
AddNew. Cach nay khong can phai lap trinh gi ca. 


[missing resource: .png] 


Hinh VIII.12 Thém mdi mau tin ding ADO DataDé thém mdi vao mét 
mau tin, ta sé di dén cui mau tin, sau d6 An ntit tiép, ta nhan thay gid tri 
cUa cac truOng sé rong dé cho ching ta nhap mGi théng tin vao. 


¢ Thém mGi mau tin bang 2 phuong thttc AddNew va Update, cac 
buGc tién hanh sé nhu sau: 


- Thiét ké hai nut 1@nh 1a ADD NEW va UPDATE. 


- Trong sy kién Click cUa hai ntt trén lan uot nhdap vao cau 1énh sau: 
Adodc1.Recordset.AddNew, Adodc1.Recordset.Update v6i Adodc1 1a 
thuc tinh Name cUa diéu khién df liéu. 


[missing resource: .png] 


Hinh VIII.13 SU dung phu‘ong thutc AddNew va Update 


Ding sy kién MoveComplete dé cap nhat giao dién ngudi sf dung 


Ta cé thé ding su kién MoveComplete cUa diéu khién ADO Data dé 
khdi dOng sta di trong Ung dung khi ngudi str dung di chuyén tl’ mau 
tin nay sang mau tin khac. 


Su kién MoveComplete dudc kich hoat khi m6t mau tin mdi thanh mau 
tin hién hanh. Day 1a m6t trong vai sy kién dudc kich hoat khi diéu 
khién di chuyén tlr mau tin nay sang mau tin khac. Cac su kién khdc bao 
gOm WillChange, du@c kich hoat khi diéu khién di chuyén tl mau tin 
nay sang mau tin khac hay thay d6i mt mau tin va sy kién 
RecordChangeComplete, xay ra khi mOt mau tin duOc sUta d6i thanh cong 
trong co sG dt liéu nhu m6t két qua cUa hoat d6ng trong diéu khién di 
liéu. 


X6a mau tin 


Dé xda mau tin trong mt Ung dung str dung diéu khién dt liéu, ta dting 
phuong thUc Delete cUa d6i tugng Recordset cUa diéu khién dt liéu. 


Vi du: Adodc1.Recordset.Delete 
V.1.6 Ding su kién WillChangeRecord dé dam bao dt liéu hop 1é 


Trong lap trinh co sé dif liéu, viéc dam bao rang dt li€u nhap vao phu 
hgp vGi cac quy tac cua mOt co sO dir li€u ngudi ding cu thé 1a yéu to 
quan trong bac nhat va mang tinh bat budc. 


DOi vGi diéu khién ADO Data, viéc xdc dinh xem dt liéu cé hgp 1é hay 
khong sé dugc viét trong su’ kién WillChangeRecord cla diéu khién. Su 
kién nay sé dugc kich hoat khi ngu6i ding thay d6i thong tin cua mOt 
mau tin va di chuyén sang mau tin khdc hoac thém mGi mau tin. 


Két ni v6i co s6 di liéu va lam viéc v6i cac mu tin thong qua diéu 
khién Data (DAO Data Control) 

Diéu khién Data han ché hon diéu khién ADO Data vi n6 chi cho phép 
ching ta ndi két d6n mét s6 ngu6n dé liéu cu thé, chang han nhu 
Access, Excel, Foxpro,... nhung Version cUa cac hé quan tri nay ciing 1a 
nhUng Version da lau ddi. 


Dé str dung diéu khién nay, ta can xéc dinh cdc gia tri cUla cdc thudc tinh 
sau: Connect, DatabaseName, RecordSource. 


- Connect xac dinh co s6 df liéu cua ta 1a loai gi. 
- DatabaseName chi dén m6t co sé dt liéu cu thé. 


- RecordSource 1a m6t bang dt liéu trong co sé dif liéu (d6i vi co sO 
du li€u Access). 


Sau khi da xdc dinh gia tri cUa cc thuGc tinh trén thi viéc duyét qua cdc 
mau tin cling tuong tu nhu cUa diéu khién ADO Data. 


Thu6c tinh EOFAction cUa diéu khién Data quy dinh viéc ching ta cé thé 
thém mGi mt mau tin hay 1a khong (tuong tu diéu khién ADO Data). 


Cac d0i tung truy cap dt liéu 

Muc tiéu: ChuOng nay gOm cac bai tap nham rén luyén sinh vién cach 
thUfc lap trinh co sO dtr liéu st? dung thu vién d6i tuong Data Access 
Objects (DAO). Day 1a cach thUtc lap trinh ph6 bién di vGi cac Ung dung 
chay trén may don. 

Hoc xong chuOng nay, sinh vién phai nam bat du@c cdc van dé sau: 

- SU dung diéu khién dtr liéu dé truy xuat co sO dtr liéu. 

- SU dung thu’ vién d6i tuong DAO dé 1p trinh co sé dt liéu. 

Kién thc c6 lién quan: 

- Giao trinh Visual Basic, chuOng 9. 

Tai li€u tham khao: 


Visual Basic 6 Certification Exam Guide - Chapter 5, Page 139 - Dan 
Mezick & Scot Hillier - McGraw-Hill - 1998. 


http://www.vovisoft.com/VisualBasic/VB6Chapter14.htm 
http://www.vovisoft.com/VisualBasic/VB6Chapter15.htm 


HUONG DAN 
Bai tap 4-1 
sU' DUNG DATA CONTROL 


Buc 1: Tao mt du dn mGi tén DataControl trong thu muc Basic\Bt4-1. 


BuGc 2: Nhap dtp lén Icon cUa Control Data trong Toolbox. M6t Control 
Data tén Datal sé hién ra trén Form. Mun cho né nam bén dui Form, 
hay dat thu6c tinh Align cUa né trong Properties Window thanh 2 - Align 
Bottom. 


Nhap bén phai hang property DatabaseName, ké do click lén nut lua chon 
cé ba cham dé chon m6t file co s6 dtr li€u Access tl hép thoai cho 
Datal. O day ta chon E:\Program Files\Microsoft Visual 
Studio\VB98\BIBLIO.MDB (tity may tinh c6 thé 1a 6 C hay 6 dia D) 


* DataControl - Microsoft Visual Basic [design] - [frmDataControl (Form)] 

B File Edit view Project Format Debug Run Query Diagram Tools Add-Ins Window Help 

IM -b- ESE L2BAlOo) >  MEBFRARD 1D om 
HO&a 


Project - DataControl 


General =, frmDataControl 
k fied A Ft an ey ee, DataControl (DataControl.ybp) 
Eid o |e : 
EB Eg ay 3 


oa a Properties - Datal 
a Datal Data x 
2. a8 : 


=) Forms 
© frmDataControl (frmDataControl.frm) 


Alphabetic | categorized | 


C] axsooo000s%. 
0 - Move First 
Datal 

Acca 

ete E:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB ... 


YoeDerauitcy 
2-Uselet 
(None) 

0 - Manual 
True 
0- Move Last 


DatabaseName 
‘Returns/sets the name and location of the source of data for a Data control. 


Hinh IV.1: Xac lap thu6c tinh cho Data Control 


Buc 3: Trong chuong trinh nay ta lam viéc vGi table Titles cua co s6 dt 
liéu BIBLIO.MDB, dé xem va sUa d6i cdc records. Dé y thudc tinh 
DefaultType cUa Datal cé tri s6 2- UseJet, tc 1a ding ky thuat DAO, thay 
vi dung ky thuat ODBC. 


Properties - Datal 


Datal Data = 
Alphabetic Categorized | 


MousePointer 0 - Default 
False 
0-None 


Authors 
Publishers 
Title Author 
Titles 

All Titles 


Khi ta nhdp chu6t lén thu6c tinh Recordsource cUa Data1, r6i nhap 1én 
tam gidc nho bén phai, mOt ComboBox sé m6 ra cho ta thay danh sdch 
cac tables trong co sO dtr liéu, chon Titles. Dé y thuGc tinh RecordsetType 
cUa Datal cé tri s6 1a 0 - Table: 


Hinh IV.2: Recordset Type 


BuGc 4: M6t tl mGi ma ta sé ding thuOng xuyén khi truy cap dU liéu 
trong VB6 1a Recordset (b6 records). Recordset 14 mOt Set of records, nd 
c6 thé chtta mOt sO records hay kh6ng cé record nao ca. MOt record trong 
Recordset c6 thé 14 mOt record lay tl m6t Table. Trong tr'uOng hap ay cé 
thé ta lay vé tat ca records trong table hay chi nh(fng records thda ding 
mt diéu kién, thf du nhu ta chi mu6n lay cac records cUa nhting sdch 
xuat ban truGc nam 1990 (Year Published < 1990). 


Tao Form co dang nhu sau: 


Project - DataControl 
is frmDataControl 


Fy frmDataControl (FrmDataControl.Frm) 


Properties - txtTitle 


|txtTitle TextBox r | 


Alphabetic | Categorized | 


CausesYalidation True 


rik Datal 


Returns/sets a value that binds a control to 4 field in the current record, 


Hinh IV.3: Giao dién ban dau 


4 labels vGi caption cUa ching: Title, Year Published, ISBN va Publisher 
ID. Ké dé cho thém 4 textboxes tuong Ung va dat tén ching 1a txtTitle, 
txtYearPublished, txtISBN va txtPublisherID. 


Buc 5: Chon textbox txtTitle, r6i dat thudc tinh Datasource cUa n6 trong 
Properties Window thanh Data1. Khi click lén property Datafield cua 
txtTitle va mé ComboBox ra ta sé thay liét ké tén cdc truOng trong table 
Titles. Do la vi Datal duc coi nhu trung gian lay table Titles tl co sO dt? 
liéu. O day ta sé chon cét Title. 


TuOng tU cho 3 textboxes con lai, va chon cac ct Year Published (nam 
xuat ban), ISBN (s6 ly lich trong thu vién qu6c té), va PubID (s6 ly lich 
nha xuat ban) lam Datafield cho ching. 


BuéGc 6: Luu dy dn va chay chuOng trinh. Ta sé thay giao dién nhu sau: 


m= frmDataControl 


Title: [HBASE Ill A Practical Guide 
‘Year Published: [1 985 
ISBN: (0-0038307-6-4 


Publisher ID: 469 
First 


Previous 


Hinh IV.4: Két qua thUc thi Ung dung 
Nhan xét: 


° Taco thé bam cac nit di chuyén Navigator Buttons dé di dén cac 
record dau (first), truGc (previous), ké (next) va cudi (last). MOi lan 
ta di chuyén dén m6t record mdi 1a chi tiét cUa record ay sé hién 
thi. Néu khéng ding cdc Navigator Buttons, ta cling c6 thé viét doan 
ma dé lam céng tac tuong duOng bang cach goi cdc ham trén 
Recordset la MoveFirst, MovePrevious, MoveNext va MoveLast. 

e Khi record cudi cUa Recordset dang hién thi, néu ta goi ham 
MoveLast thi thudc tinh EOF (End-Of-File) cua Recordset tré thanh 
True. TUOng tu nhu vay, khi record tht? nhat cUa Recordset dang 
hién thi, néu ta goi ham MovePrevious thi thu6c tinh BOF (Begin- 
Of-File) cUa Recordset tré thanh True. Néu mOt Recordset kh6ng cé 
chtfa m6t record nao ca thi ca hai thu6c tinh EOF va BOF déu la 
True. 

e Khi record dau tién dang hién thi, néu ta sUa Year Published dé d6i 
tl’ 1985 thanh 1983 r6i nhdp Navigator button Next dé hién thi 
record thf nhi, ké d6 click Navigator button Previous dé hién thi lai 
record dau tién thi ta sé thay 1a trudng Year Published cUa record 
dau tién da that su dudc thay d6i (updated) thanh 1983. 


Diéu nay co nghia rang khi di chuyén tl record nay dén record khac thi 
néu record nay da c6 su thay d6i do ngudi sU dung, no uu tr su thay 


d6i do truGc khi di chuyén. Chua chac 1a ta mu6n diéu nay, do dé, néu ta 
kh6éng mu6n ngudi str dung tinh cO sta d6i mOt record thi ta cé thé dat 
thudc tinh Locked cUa cdc textboxes ay thanh True dé ngudi str dung 
khong thé sta d6i cdc textboxes nhu trong hinh du6i day: 


Hinh IV.5: Khoa (lock) Textbox 


Project - DataContro! 


is frmDataControl SES a 


DataControl (DataControl.ybp) 


rik Datal 


False 


Locked 
Determines whether a control can be edited, 


CHI DINH VI TRICO SO DU LIEU LUC CHAY CHU'ONG TRINH 


BuGc 7: Cach chi dinh tén co s6 di liéu trong giai doan thiét ké (at 
design time) ta da ding truGc day tuy tién loi nhung hoi nguy hiém, vi khi 
ta cai chUOng trinh nay lén may tinh khac, chUa chac tap tin co sé dif 
liéu Ay nam trong m6t thu muc co cing tén. Vi du trén may tinh nay thi 
co sO dtr li€u nam trong thu mUc E:\Program Files\Microsoft Visual 
Studio\VB98, nhung trén may tinh khac thi co s6 dif li€u nam trong thu 
muc D:\Basic\Bt4-1 chang han. Do dé, khi chuong trinh khdi déng ta nén 
xac dinh lai vi tri cua co sO dt li€u. Chang han ta mu6n dé co sé dé 
liéu trong cing m6t thu mUc vGi chUOng trinh dang chay, ta c6 thé ding 
thu6c tinh Path cua Application Object App. 


Khai bdo m6t bién tén duongdan trong phan [General]\[Declaration] cUa 
Form1: 


Dim duongdan As String 

Buc 8: Ta xu ly su’ kién Form_Load nhu sau: 

Private Sub Form_Load() 

duongdan = App.Path 

If Right(duongdan, 1) <> "\" Then duongdan = duongdan & "\" 
Datal.DatabaseName = duongdan & "BIBLIO.MDB" 

End Sub 

THEM BOT CAC RECORDS 

Buoc 9: ChuOng trinh dén day tam On, nhung no khong cho ta céng cU 
dé thém (add), b6t (delete) cdc records. Bay gid hay dat vao Form 5 
buttons tén: cmdEdit, cmdNew, cmdDelete, cmdUpdate va cmdCancel. 
BuOc 10: Luc chuong trinh moi khoi dong, ngudi su dung dang xem 
th6ng tin cdc records thi hai buttons Update va Cancel khéng can phai lam 


viéc. Do dé ta sé Lock (khéda) cac textboxes va disable hai buttons nay vi 
khong can dting ching. 


BuGc 11: Trong Sub SetControls dudi day, ta ding mOt tham s6 goi la 
Editing vGi tri sO False hay True tiy theo ngu0i ding dang xem (browse) 
hay sUa di (Edit), ta goi 14 Browse mode va Edit mode. Trong Edit mode, 
cdc Textboxes duOc unlocked (m6 khéa) va céc nit cmdNew, cmdDelete 
va cmdEdit tro nén v6 hiéu luc: 


Sub SetControls(ByVal Editing As Boolean) 


"Lock/Unlock textboxes 


txtTitle.Locked = Not Editing 
txtYearPublished.Locked = Not Editing 
txtISBN.Locked = Not Editing 
txtPublisherID.Locked = Not Editing 
'Enable/Disable buttons 
CmdUpdate.Enabled = Editing 
CmdCancel.Enabled = Editing 
CmdDelete.Enabled = Not Editing 
cmdNew.Enabled = Not Editing 
CmdEdit.Enabled = Not Editing 

End Sub 

Trong Browse mode, Form co dang nhu sau: 


Hinh IV.7: Két qua thu thi 


i frmDataControl 


Title: [dBASE Ill A Practical Guide 
‘Year Published: i 985 
ISBN: [0-0038307-6-4 


Publisher ID: 469 


New | Edit | Delete | Cancel 
[14{ 4] Datal > [>| 


Buc 12: Thu tuc SetControls duc gOi trong Sub Form_Load khi 
chung trinh khdi d6ng va su kién CmdEdit_Click dudc xU ly nhu sau: 


Private Sub Form_Load() 

duongdan = App.Path 

If Right(duongdan, 1) <> "\" Then duongdan = duongdan & "\" 
Datal.DatabaseName = duongdan & "BIBLIO.MDB" 
SetControls (False) 

End Sub 

Private Sub CmdEdit_ClickQ) 

SetControls (True) 

End Sub 


Bu6c 13: Khi ta x6a mt record trong recordset, vi tri cua record hién tai 
(current record) van khong thay d6i. Do do, sau khi x6a mt record ta phai 
MoveNext. Tuy nhién, néu ta vUa xda record cudi cUa Recordset thi sau 


khi MoveNext, thu6c tinh EOF cUa Recordset sé thanh True. Thanh ra ta 
phai kiém tra diéu d6, néu ding vay thi lai phai MoveLast dé hién thi 
record cui cUa Recordset nhu trong doan ma cUa Sub cmdDelete_Click 
du6i day: 

Private Sub CmdDelete_ClickQ) 

On Error GoTo DeleteErr 

With Datal.Recordset 

' Xoa record 

.Delete 

' Nhay den record ke 

.MoveNext 

If EOF Then .MoveLast 

Exit Sub 

End With 

DeleteErr: 

MsgBox Err.Description 

Exit Sub 


End Sub 


Buc 14: Ta cé thé Update (cap nhat) mOt record trong Recordset bang 
ham Update. Nhung ta chi cé thé goi ham Update cUa m6t Recordset khi 
Recordset dang 6 trong Edit hay AddNew mode. Ta dat m6t Recordset vao 
Edit mode bang cach goi ham Edit cUa Recordset, thi dy nhu 
Datal.Recordset.Edit. Tuong tu nhu vay, ta dat mOt Recordset vao 


AddNew mode bang cach goi ham AddNew cUa Recordset, thi dU nhu' 
Data1.Recordset.AddNew. 


Private Sub cmdNew_ClickQ) 
Data1.Recordset.AddNew 

SetControls (True) 

End Sub 

Private Sub cmdUpdate_Click() 
Data1.Recordset.Edit 
Datal1.Recordset.Update 

SetControls (False) 

End Sub 

BuGc 15: Luu dy an va chay chuOng trinh. 
Bai 4-2 

CAC DOI TUONG CO BAN CUA DAO 


Buc 1: Tao thu muc Basic\Bt4-2. Tao giao dién cho chuOng trinh nhu 
sau: 


FREE Diagram Tools Add-Ins Window Help 
(3-4: Ble hlsmeslool, a a/Neasr 


Hinh IV.8: Giao dién ban dau 
Céc tén cUa thanh phan menu 1an luot 1a: mnuFile, mnuOpen, mnuExit. 


Sau d6 vao Project\References..., danh dau vao Microsoft DAO 3.51 
Object Library; chon OK. 


Buc 2: Thém mOt Common Dialog vao Form1, tén 1a dlgDatabase. 


Buc 3: Thém mt DBGrid vao form bang cach chon: 
Project\Components..., danh dau Microsoft Data Bound Grid Control 5.0 
(SP3); roi chon DBGrid trén ToolBox. Sau dé thém m6t TextBox va m6t 
Data Control vao form1. Ta c6 cdc tén cUa diéu khién 14: DBGrid1, Text1, 
Datal vGi cdc thu6c tinh nhu sau: 


Item 1: TextBox 
Name: Text1 
Multiline: True 
ScrollBars = 3 
Item 2: DBGrid 


Name: DBGrid1 


DataSource = Datal 


Ta du@c hinh dang cUa form1 nhu sau: 


, Project! - Microsoft Visual Basic [design] - [Form1 (Form)] 
& Eile Edit View Project Format Debug Run Query Diagram Tools Addins Window Help -l8|x 


|S--Blee|sEe ml om| > ny o MSA wWR Alt 20.120 
xi Pro 


gt 4575 x 2055 


Project1 (Project1.vbp) 
‘3 For 


rns: 
© Form (Formt.frm) 


r B: rid <| 
[oscridt DBGrid = ] 


Alphabetic | Categorized | 


AllowArrows: 


HowDelete 
Enables interactive record deletion 


- a 


Hinh IV.9: Giao dién day du 

Sau d6, thém doan mi sau trong thu tuc xU ly su kién mnuOpen_Click: 
CommonDialog1.FileName = "*.mdb" 

CommonDialog1.Filter = "Access DBs (*.mdb)|*.mdb" 
CommonDialog1.ShowOpen 

Datal.DatabaseName = CommonDialog1.FileName 

BuGc 4: Thém m6t niit nhdn (Button) nhu hinh trén, Caption 1a Run query. 
Nut nay c6 mUc dich la thUc thi cau 1énh SQL ma ngu¢i ding nhap vao 6 
Text1. Dé thuc thi dudc 1énh SQL nay, ta phai gan thudc tinh 


Recordsource cUa Data Control Datal nhu trong thu tuc xU' ly su’ kién 
Command1_Click: 


Private Sub Command1_Click() 


Datal.RecordSource = Text1.Text 

Datal.Refresh 

End Sub 

Buc 5: Trong ham xu ly su kién mnuExit_Click thém dong ma sau: 
End 


Chay chuong trinh, trong mUc File\Open cUa menu chon tap tin 
C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb. Sau d6 ta g6 
cau l@nh SQL sau vao Text Box: 


Select * from Publishers 

Nhap chu6t vao nut nhén Run query. Quan sat két qua hién thi. 

Ta di tao mOt chUOng trinh cho phép ngudi slr dung dé md mét CSDL 
va chay cau SQL trén CSDL dé. Bay gid, ddi v6i CSDL dudc md G trén, 
tim xem cdc bang cUa né 1a gi nham muc dich xéy dung cac cau truy van 
cho phu hop. 

Buc 6: Thém doan mA sau vao phan khai bao cUa Form1: 

Private db As DAO.Database 

Private td As DAO.TableDef 

Private qd As DAO.QueryDef 

Private fld As DAO.Field 


Buc 7: Trong ham xt ly su kién mnuOpen_Click ta can kiém tra xem 
tap tin duc chon co phai 1a tap tin CSDL cUa Access hay khéng 
(*.mdb)? Sau d6 ding cdc bién dugc khai bdo G trén dé thao tac > Sta 
thu tuc mnuOpen_Click nhu dui day: 


Private Sub mnuOpen_Click() 

CommonDialog1.FileName = "*.mdb" 

CommonDialog1.Filter = "Access DBs (*.mdb)|*.mdb" 
CommonDialog1.ShowOpen 

If UCase(Right(CommonDialog1.FileName, 3)) <> "MDB" Then 
MsgBox "Khong phai la tap tin cua Microsoft Access" 

Else 

On Error Resume Next 

db.Close 

On Error GoTo 0 

Screen.MousePointer = vbHourglass 

‘Mo CSDL 

Set db = _ 
DBEngine.Workspaces(0).OpenDatabase(CommonDialog1.FileName) 
Form1.Caption = "Cau SQL: Chon " & CommonDialog1.FileName 
Screen.MousePointer = vbDefault 

Datal.DatabaseName = CommonDialog1.FileName 

End If 


End Sub 


Buc 8: Ta di mé duc CSDL, bay gid ta ding mt List Box dé hién thi 
tat ca cc bang cua CSDL dudc md 6 trén. 


Thém m6t ListBox vao Form tén List1, trong ham xU ly su kién mnuOpen, 
thém doan mA sau truGc lénh End If: 


' Them vao ListBox 

List1.Clear 

For Each td In db.TableDefs 

List1.AddItem td.Name 

Next 

Chay chuong trinh, ListBox sé hién thi tat ca cdc bang cUla CSDL trén. 


Buc 9: Thém m6t ListBox na vao Form, tén List2. Thém doan ma sau 
trong ham xu ly su’ kién List1_Click: 


Private Sub List1_Click() 

' Tim bang duoc chon trong CSDL 

Set td = New TableDef 

For Each td In db.TableDefs 

If td.Name = Me.List1.List(Me.List1.ListIndex) Then 
Exit For 

End If 

Next 


' Hien thi cac truong cua bang duoc chon 


For Each fld In td.Fields 

List2.AddItem fld.Name 

Next 

End Sub 

BuGc 10: Chay chuong trinh, chon File\Open dé chon tap tin CSDL, ltic 
d6 List1 sé hién thi cac bang cua CSDL. Nhap chon m6t bang trong 
List1, List2 sé hién thi tén cdc tr'uOng cUa bang do. Bay gid ta ti€n thém 
m0t buGc nffa 1a hién thi tat ca cdc cau truy van (SQL) dugc luu trong 
CSDL trén bang cach: 


Thém m6t ListBox nUfa vao Form] tén 1a List3, sau d6 thém vao doan ma 
sau trong ham xU ly su’ kién mnuOpen truGc 1énh End If: 


List2.Clear 

List3.Clear 

Text1.Text = '"" 

For Each qd In db.QueryDefs 

List3.AddItem gd.Name 

Next 

BuGc 11: Chay chuong trinh, kiém tra xem diéu gi xay ra trén List3. 


Dong chuOng trinh lai, thm doan m sau trong ham x ly su kién 
List3_Click: 


Private Sub List3_Click() 
For Each qd In db.QueryDefs 


If qd.Name = List3.List(List3.ListIndex) Then 


Text1.Text = qd.SQL 

End If 

Next 

End Sub 

Chay chuong trinh, m6 BIBLIO.MDB, nhap vao List3. Quan sat két qua. 


Buc 12: Chiing ta luu cau SQL nhap tU ban phim vao trong CSDL trén 
vi m6t tén cho truGc. Y tuOng chinh 1a ta kiém tra cau SQL du@c nhap 
d6, néu no khéng cé 16i ta sé uu vao CSDL. 


Thém m6t ntit nhan (Button) vao Form1 v6i Name: Command2, Caption: 
Save Query. Sau d6 xu ly su kién Command2_Click nhu sau: 


Private Sub Command2_Click() 

‘Luu cau SQL 

Set qd = New QueryDef 

qd.SQL = Trim$(Text1.Text) 

MsgBox "Cau SQL duoc luu la: " & qd.SQL 

'Nhap ten cua cau SQL 

qd.Name = InputBox("Nhap ten cau SQL: ") 

db.QueryDefs.Append qd 

End Sub 

Buc 13: Chay chuong trinh, mo BIBLIO.MDB, chon cau mot query, 
chay n6 (Run query); sau d6 nhap vao ntit Save Query dé luu lai vGi tén 


ta phai nhap vao tUr ban phim. Dé kiém tra, hay mé lai tap tin trén 
(File\Open): cau query trén duc hién thi trong List3. 


Hinh bén dui hién thi két qua khi thu thi chuOng trinh. 


ig, Cau SQL: Chon C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB 


| [Title ISBN Author 
|) 11-23 Database Tect|0-8802234-6-4 | Stem, Nancy 
|) ]1-2-3 Database Tect|0-8802234-6-4 | Weil Bill 
| }1-23 Database Tect|0-8802234.6-4 

/]1-2:3 For Windows F/1-5676127-1-7 | 

| ]1-2-3 For Windows F/1-5676127-1-7 | 

J ]1-2-3 For Windows F|1-5676127-1-7 | 

| }1-2-3 Power MacRo:|0-8802280-4-0 

| ]1-23 Power Tools (B/0-5533496-6% 

| ]1-2:3 Power Tools (B/0-5533496-6% 

| }1-2:3 Power Tools (B/0-5533496-6% 

| }1-2:3 Release 2.2 PC/0-88022625.0 

| |1-2:3 Release 2.2 PC/0-88022625.0 

| ]1-2-3 Release 2.2 PC/0-88022625.0 

| |1-23 Secrets/Book .|1-8780587-38 

| |1-2-3 Secrets/Book .|1-8780587-38 

| ]10 Minute Guide to 4/1-5676145-0-7 

| ]10 Minute Guide to #/1-5676145-0-7 | Matin, 

| |10 Minute Guide to 4/0-7897055-5-9 | Wempen, Faw 

OL alae 


Hinh IV.10: Két qua thc thi Ging dung 
Bai 4-3 
MO HINH DAO 


Bu6Gc 1: Trong bai nay ta sé tim hiéu nhtMng cach lap trinh cdn ban vGi co 
sO dt liéu MS Access qua ky thudt DAO ma kh6ng can ding dén Control 
Data nhu bai tap 4-1. Ta sé can dén cdc d6i tugng (Object) trong thu 


vién DAO, do dé néu ban mé mét dy dn VB mGi thi hay ding Menu 
Command Project | References... d@ chon Microsoft DAO 3.51 Object 
Library bang cach click checkbox bén trai nhu trong hinh dui day. 


References - DAOPrj.vbp 


Available References: 


__| Microsoft Component Services Typelib 

__| Microsoft Connection Designer Instance 1.0 

_|Microsoft Connection Designer v6.0 

__| Microsoft DAO 2,5/3.51 Compatibility Librar’ 

MiMicrosoft D&O 3.51 Object Library | 
+ 


_ Microsoft DAO 3.6 Object Library 

__| Microsoft Data Access Components Installed Version 
__| Microsoft Data Adapter Library Priority 

| Microsoft Data Binding Collection Help 
| Microsoft Data Environment 1.0 

_| Microsoft Data Environment Extensibility Objects 1.0 
_| Microsoft Data Formatting Object Library 6.0 (SP4) 
__| Microsoft Data Report Designer v6.0 

| Mircrnsnft Data Renort Desiqner vA.n 


< i | > 


v 


Microsoft D&O 3.51 Object Library 


Location: —E:\Program Files\Common Files\Microsoft Shared\DA0\DA0351 
Language: Standard 


Hinh IV.11: Tham chiéu dén thu vién DAO 


Bu@Gc 2: Sau d6 trong cUfa sO soan thao ma lénh cUa Form chinh ta sé 
khai bao bién myDatabase kiéu DAO database va bién myRS cho mét 
DAO recordset. O day ta ndi r6 Database va Recordset 14 thu6c loai DAO 
dé phan biét vGi Database va Recordset thu6dc loai ADO (ActiveX Data 
Object) sau nay. 


F@ DAOPrj - frmDAO (Code) 


(General) ~)| ((Declarations) 


Dim myRS As DAO. Recordset a 
Dim myDB As DAO.Datal 


Database 
) Databases 
e DatahaseTypeEnum 
e DataTypeEnum 
2) DBEngine 
@} Document 
2%) Documents 


Hinh IV.12: Khai bdo bién 


Buc 3: Bay gid hay dat én Form chinh, tén frmDAO, 4 labels vGi 
captions: Title, Year Published, ISBN va Publisher ID. Ké do cho thém 4 
textboxes tuOng Ung va dat tén chiing 1a txtTitle, txt YearPublished, 
txtISBN va txtPublisherID. 


Diéu ta muOn lam 1a khi Form mGi dudc thuc thi, no sé lay vé tu co sd 
dtr liéu mt Recordset chUfa tat ca records trong table Titles theo tht? tu 
abc cUa field (truOng) Title va hién thi record dau tién. 


DUNG TU KHOA SET 


Buc 4: Tru6c hét la md mt co sé di liéu dua vao tén tap tin cua 
Access database: 


Set myDB = OpenDatabase(AppFolder & "BIBLIO.MDB") 


Dé y tl khéa Set trong doan mA trén. D6 1a vi myDB 1a m6t Pointer (con 
trO) chi dén mt Object (d6i tudng). Mac du tu day vé sau ta sé ding 
myDB nhu mt Database (co sO dtr li€u) theo cach giOng nhu bat cl mét 
bién thu6c kiéu df liéu nao khac, nhung khi chi dinh lan dau 1a n6 tlr dau 
dén thi ta ding cht? Set, dé ndi rang that ra myDB khong phai 1a Object 
Database, nhung 1a Pointer d@n Object Database. 


Nguyén nhan 1a VB danh ra m6t phan trong b6 nhé (memory) dé chtfa 
di tuong Database khi ta nhan du@c n6é khi ham OpenDatabase thuc thi. 
Dui vi tri ch6 chUfa d6i tuong Database trong bO nhG khéng nhat dinh, 
nhung vi ta nam can chi dén vi tri ay nén ta van co thé lam viéc vGi né 
m6t cach binh thuOng. Cai can ay 1a tri sO cla bién myDB. Vi tri sO nay 
khéng phai la Object (d6i tudng), nhUng n6é chUfa memory address (dia chi 
trong b6 nh) chi dén (point to) d6i tugng Database, nén ta gi nd 1a 
Pointer (con tr0). 


TuOng tu nhu vay, vi Recordset la m6t Pointer chi dén m6t ddi tugng, ta 
cting ding Set khi chi dinh m6t DAO Recordset lay vé tu ham 
OpenRecordset cUa database myDB. 


Set myRS = myDB.OpenRecordset("Select * from Titles ORDER BY 
Title") 


Tham s6 kiéu String ta dtng cho ham OpenRecordset 1a m6t cau 1énh 
SQL. N6 chi dinh cho co sé dif liéu lay tat ca moi trudng cua MOi Mau 
tin t’ Table Titles lam mOt Recordset va sap x€p céc mau tin trong 
Recordset ay theo tht? tu abc cUa truOng Title (ORDER BY Title). 


Dé y 1a Recordset nay ciing giéng nhu thudc tinh Recordset cua mOt Data 
Control ma ta ding trong bai 7-1. Bay gid cé Recordset ri, ta c6 thé hién 
thi chi ti€t cUa record dau tién néu Recordset ay cé ft nhat mOt record. Ta 
kiém tra diéu ay dUa vao thuéc tinh RecordCount cUa Recordset nhu 
trong doan ma du6i day cua su kién Form_Load: 


Private Sub Form_Load() 

AppFolder = App.Path 

If Right(AppFolder, 1) <> "\" Then AppFolder = AppFolder & "\" 
Set myDB = OpenDatabase(AppFolder & "BIBLIO.MDB") 


Set myRS = myDB.OpenRecordset("Select * from Titles ORDER BY 
Title") 


If myRS.RecordCount > 0 Then 

myRS.MoveFirst 

Displayrecord 

End If 

End Sub 

BuéGc 5: Sau khi ding ham MoveFirst cUa Recordset dé dinh vi mau tin 
hién thOi 14 mau tin dau tién, ta hién thi tri s6 cdc tr'uOng cUa mau tin 
bang cach gan chting vao cdc textboxes cUa Form nhu sau: 

Private Sub Displayrecord() 

With myRS 

txtTitle.Text = .Fields('Title") 

txtYearPublished. Text = .Fields("[ Year Published]") 

txtISBN.Text = .Fields("ISBN") 

txtPublisherID.Text = .Fields("PubID") 

End With 

End Sub 

Dé y vi truOng Year Published g6m cé hai tl nén ta phai dat tén cla 
truOng ay gitfa hai dau ngoac vuong ([]). Dé tranh bi phién phttc nhu 
trong truOng hdp nay, khi dat tén cdc truOng tcUa table trong ltic thiét ké 
co sO dt liéu hay dan dinh cac cht lai vi nhau, dling dé rdi ra. Thi du 


nhu dung YearPublished thay vi Year Published. 


CAC NUT DI CHUYEN 


Buc 6: Mun cé cac ntit Navigators gidng nhu cla mOt Control Data, ta 
hay dat lén Form 4 buttons mang tén CmdFirst, CmdPrevious, CmNext va 
CmdLast vGi captions: <<, <, >, >>. 


BuGc 7: Ma lénh cho céc nit nay citing don gian, nhung ta phai coi chUng 
khi ngudi ding mu6n di chuyén qua mau tin cudi cling hay mau tin dau 
tién. Ta phai kiém tra xem EOF cé tré thanh True khi ngudi ding nhap 
CmdNext, hay BOF cé tré thanh True khi ngu0i ding nhap CmdPrevious. 
Cac su kién nay du@c xU ly nhu sau: 

Private Sub CmdNext_Click() 

myRS.MoveNext 

If Not myRS.EOF Then 

Displayrecord 

Else 

myRS.MoveLast 

End If 

End Sub 

Private Sub CmdPrevious_Click() 

myRS.MovePrevious 

If Not myRS.BOF Then 

Displayrecord 

Else 


myRS.MoveFirst 


End If 

End Sub 

Private Sub CmdFirst_ClickQ) 

myRS.MoveFirst 

Displayrecord 

End Sub 

Private Sub CmdLast_Click() 

myRS.MoveLast 

Displayrecord 

End Sub 

Buc 7: Chay chuOng trinh. Khi chay chuong trinh ta sé thay n6 hién thi 
chi tiét cua mau tin dau tién khac vGi cdc bai truGc day vi cdc mau tin da 
duOc sap x€p. 


Ta hay thcr ding cdc ntit di chuyén <, <<, >, >> xem ching lam viéc cé 
dung khong. 


TOi day, ta nhan thay rang dui ngudi ding cé V6 tinh sta d6i mOt chi tiét 
nao trong cac textboxes, khéng cé mau tin nao bi cap nhat héa trong co sO 
dtr liéu khi ngudi ding di chuyén tlr mau tin nay dén mau tin khac. Ly 
do la cdc Texboxes khong cé rang budc dU liéu (Data Bound) vGi cdc 
truOng cUa Recordset. 


THEM BOT CAC RECORDS 


Buc 8: Gidng nhu chuong trinh trong bai ri, ta sé thém cong cu dé 
thém (add), b6t (delete) cac mau tin. Hay thém vao Form 5 buttons tén: 


cmdEdit, cmdNew, cmdDelete, cmdUpdate va cmdCancel. 


Buc 9: Ch6 nao trong chuOng trinh 4-1 ta ding Datal.Recordset thi bay 
gid ta ding myRS. 

Ta sé ding lai Sub SetControls vGi tham s6 Editing cé tri sO False hay 
True tuy theo ngudi ding dang xem (Browse) hay stra d6i (Edit). Trong 
Browse mode, cac Textboxes bi Locked (khdéa) va cac nit cmdUpdate va 


cmdCancel bi v6 hiéu luc. Trong Edit mode, cdc Textboxes duc unlocked 
(m6 khéa) va céc nuit cmdNew, cmdDelete va cmdEdit bi v6 hiéu luc. 


Do do ta chi can nhé 1a khi ngu6i ding dang sUta d6i m6t mau tin hién 
hanh hay thém m6t mau tin mGi. Ta chia tri sO Boolean ay trong bién 
AddNewRecord. Néu user sap thém m6t record mGi thi 


AddNewRecord = True, néu User sap Edit mOt record hién httu thi 
AddNewRecord = False. 


Ngoai ra, khi ngu0i ding sap thém mot mau tin mdi bang cach nhap ntt 
New thi ta phai tu x6a hét cdc textboxes bang cach gan chuOi rOng cho 
cac TextBox do. 

Ta co cac doan ma sau: 

Dim AddNewRecord As Boolean 

Private Sub ClearAllFields() 

txtTitle.Text = "" 

txtYearPublished.Text = "" 

txtISBN.Text = "" 

txtPublisherID.Text = "" 


End Sub 


Private Sub cmdNew_ClickQ) 


AddNewRecord = True 

ClearAllFields 

SetControls (True) 

End Sub 

Private Sub CmdEdit_ClickQ) 

SetControls (True) 

AddNewRecord = False 

End Sub 

Buc 10: Khi ngudi ding nhdp Cancel trong khi dang stra di céc 
textboxes, ta khong can goi ham vi Recordset chua bi dat vao AddNew 
hay Edit mode. O day ta chi can hién thi lai chi tiét cUa mau tin hién 
hanh, tlc 14 huy bo nhttng gi ngui ding dang danh vao: 

Private Sub CmdCancel_ClickQ) 

SetControls (False) 

Displayrecord 

End Sub 

BuGc 11: Lic ngu6i ding nhap Update, ta sé kiém tra dt liéu xem c6 
truOng nao bi bé tréng (nhat 14 khéa chinh ISBN bat budc phai cé tri s6) 
hay c6 gi khong hp 1é bang cach goi ham GoodData. Néu GoodData tra 
lai m6t tri s6 False thi ta khong xtic tién vGi viéc Update. Néu GoodData 


tra vé tri sO True thi ta dat Recordset vao AddNew hay Edit mode tiy theo 
tri sO cua bién AddNewRecord 1a True hay False. 


GiOng nhu khi hién thi chi tiét cUa mOt Record ta phai gan tling truOng 
vao textbox, thi bay gid khi Update ta phai lam ngu@c lai, tUc 1a gan ndi 


dung cUa tling textbox vao cac truOng tuOng Ung. Sau cing ta goi ham 
Update cUa recordset va cho cac diéu khién trd lai Browse mode: 


Private Function GoodData() As Boolean 
GoodData = True 

End Function 

Private Sub CmdUpdate_Click() 

If Not GoodData Then Exit Sub 

With myRS 

If AddNewRecord Then 

.AddNew 

Else 

.Edit 

End If 

.Fields("Title") = txtTitle.Text 
.Fields("[Year Published]") = txtYearPublished.Text 
.Fields("ISBN") = txtISBN.Text 
.Fields("PubID") = txtPublisherID.Text 
.Update 

End With 


SetControls (False) 


End Sub 


TIM MOT RECORD 


Buc 11: Tiép theo day, ta mun liét ké cdc sach c6 tiéu dé chtfa mot cht 
hay cau nao dé, thi dU nhu cht? "Guide". Ké dé ngudi ding cé thé chon 
m0t sach bang cach chon tiéu dé sdch ay va nhdp nuit Go. Chuong trinh 
sé locate (tim ra) record cUa sach ay va hién thi chi ti€t cUa no. 


Bay gid ban hay cho vao Form m6t textbox tén txtSearch va mOt Image 
tén ImgSearch. Ké dé dat m6t frame tén fraSearch vao Form. Dé |én 
frame nay m6t listbox tén List1 dé ta cdc sach. 


Ta s€ cho ImgSearch hién thi hinh m6t 6ng nhom nén ban hay click vao 
bén phai property Picture trong Properties Window dé chon Icon 
BINOCULR.ICO tu folder E:\Program Files\Microsoft Visual 
Studio\Common\Graphics\Icons\Misc. 


Khi ngu0i ding nhap vao ImgSearch, chuOng trinh sé tu dOng tim kiém 
cdc sdch c6 tua duc ngudi ding danh vao trong TextBox. Su kién 
ImgSearch dudc xU ly nhu sau: 

Private Sub ImgSearch_Click() 

fraSearch. Visible = True 

Dim SrchRS As DAO.Recordset 

Dim SQLCommand As String 


SQLCommand = "Select * from Titles where Title LIKE '" & "*" & 
txtSearch & "*" & '" ORDER BY Title" 


Set SrchRS = myDB.OpenRecordset(SQLCommand) 


If SrchRS.RecordCount > 0 Then 


List1.Clear 

With SrchRS 

Do While Not SrchRS.EOF 
List1.AddItem .Fields("Title") 
.MoveNext 

Loop 

End With 

End If 

End Sub 


Trong cau SELECT trén ta ding todn tl LIKE, ndi dung cUa TextBox, cé 
dau * & hai bén. Dau * 1a ch6 cé (hay khéng cé) ch? gi cing dudc. 


BuGc 12: Luu dy an va chay chuOng trinh. Kiém tra két qua. 

Bai tap 4-4 

THi DU VE SU DUNG DAO 

Bai tap nay nham muc dich giGi thiéu vé cach thc sr dung diéu khién 
dtr liéu va thu vién DAO trong viéc thiét ké m6t Form nhap liéu hoan 
chinh cho bang THangHoa trong CSDL HangHoa.mdb. Giao dién cing 
vGi ma lénh chi mang tinh chat gi y; sinh vién c6 thé thuc hién theo y 
riéng cUa minh. 


BuGc 1: Thiét ké form nhu sau: 


i. Hang Hoa REE 
Ma hang {AMO1 
Ten hang Jao so mi (vai Viét Tién) 


Ban lam viéc 
|Ban trang diém 
Ca moi hop 
Dau gi Clear 
|Dau gi Sunsilk 


Ni tac: mam Hai Aann 


Hinh IV.13: SU dung Data Control 


+ 


V6i *: DataControl: Diéu khién dt liéu 

DatabaseName: HangHoa.MDB 

RecordSource: THangHoa 

Name: datHH 

BuGc 2: Thiét lap cdc thu6c tinh cho cdc TextBox & ComboBox. 


DataSource: DatHH 


DataField: 


BuGc 3: Dat diéu khién 1u6i lén Form (+) sau khi da tham chiéu dén no 


(Project\Components\Microsoft Data Bound Grid Control 5.0 SP3). 
DataSource: datHH 

Chay chuong trinh, ta du@c két qua nhu trén. 
BuG6c 4: Su kién cmdThem_Click 

Private Sub cmdThem_ClickQ) 
datHH.Recordset.AddNew 

DoiTThai False 

End Sub 

Trong do: 

Private Sub DoiTThai(ByVal TThai As Boolean) 
cmdThem.Enabled = TThai 

cmdSua.Enabled = TThai 

cmdXoa.Enabled = TThai 

cmdHuy.Enabled = Not TThai 

cmdLuu.Enabled = Not TThai 


End Sub 


Buc 4: Su kién cmdSua_Click & su’ kién cmdXoa_Click: 
Private Sub cmdSua_Click() 

datHH.Recordset.Edit 

DoiTThai False 

End Sub 

Private Sub cmdXoa_Click() 

On Error GoTo Xuly 

datHH.Recordset.Delete 

Exit Sub 

Xuly: 

MsgBox Err.Description, vbCritical + vbSystemModal, "Loi" 


End Sub 


Buéc 5: Su kién cmdLuu_Click & cmdHuy_Click 


Private Sub cmdHuy_Click(Q) 
'dathh. Database = 
datHH.Recordset.CancelUpdate 
DoiTThai True 

End Sub 


Private Sub cmdLuu_Click() 


datHH.Recordset.Update 

DoiTThai True 

End Sub 

Buc 6: Su kién Form_Load: 

Private Sub Form_Load() 

DoiTThai True 

End Sub 

- C6 nhan xét gi néu khi chay chuong trinh, ta thém mGi m6t mau tin cé 


khéa la Mahang tring vGi mOt MaHang da co. Dé gidi quyét ta lam thé 
nao? 


BAI TAP TU LAM 
Su dung CSDL HangHoa.mdb, anh (chi) hay: 


1. Cai ti€n Form nhap @ bai 4-4, sao cho trudng MaLoai phai dudc lay 
tl cdc MaLoai cua bang TLoaiHang. Hon ntta thay vi hién thi 
MaLoai, ta hién thi TenLoai cho dé theo déi; nhung khi them vao 
bang THangHoa, ta lai th€m vao MaLoai cua TenLoai do. 


Bang cach st’ dung DAO (tung tu 4-3), anh (chi) hay: 


e Thiét ké Form nhap liéu cho bang THANGHOA. 
e Thiét ké Form nhap liéu cho bang TNHANVIEN. 


ODBC va cac d6i tuong dtr liéu ttr xa 

Muc tiéu: Chuong nay gidi thiéu vé thu vién d6i tuong Remote Data 
Objects, cach thc dugc str dung dé truy cap cdc d6i tuong dtr liéu tv xa. 
Hoc xong chuOng nay, sinh vién phai nam bat duQc cac van dé sau: 

- Khai niém Open Database Connectivity (ODBC). 


- SU dung diéu khién dt? liéu tlr xa (Remote Data Control) dé truy cap dtr 
liéu. 


- Cay phan cap cUa mé hinh d6éi tugng RDO. 


- SU dung thu’ vién d6i tuong RDO dé tuong tac vGi co sé dt liéu trong 
VB. 


Kién thc c6 lién quan: 
- Cac cau tric lap trinh trong VB. 
- Cau lénh truy van df liéu trong co sO dt liéu. 


- Nam bat dugc cac m6 hinh DAO 1a m6t Idi thé vi lic d6 viéc ti€ép thu 
mo hinh ADO du@c nhanh hon. 


Tai li€u tham khao: 


- Microsoft Visual Basic 6.0 & Lap trinh co so dt liéu — Chuong 23, trang 
735 - Nguyén Thi Ngoc Mai (chU bién), Nha xuat ban Gido duc - 2000. 


- Tu hoc Lap trinh co so dt liéu v6i Visual Basic 6 trong 21 ngay (T2) — 
Chuong 17, trang 227 - Nguyén Dinh Té (chu bién), Nha xuat ban Gido 
duc - 2001. 


Open Database Connectivity (ODBC) 


Khai niém 


ODBC 1a céng nghé Windows cho phép Ung dung Client ndi vGi co sé dt 
liéu tt’ xa. Nam trén may Client, ODBC lam cho ngu6n dt li€u quan hé 
trd nén trong sudt d6i vGi Ung dung Client. Vi thé Ung dung Client khong 
can quan tam dén kiéu co sé dtr liéu 1a gi. 


ODBC g6ém 3 phan: 
- Trinh quan ly diéu khién (driver manager). 
- MOt hay nhiéu trinh diéu khién (driver). 


- M6t hay nhiéu ngu6n dé liéu (data source). 
Kién tric 


Kién tric ODBC cha két ni gilta Ung dung Client va co sé dir liéu 
Server thong qua trinh quan ly diéu khién ODBC. 


Ung dung ClientNgu6n dtr li€u ODBCTrinh quan ly diéu khién 
ODBCTrinh diéu khién ODBCDBHinh 10.1: Kién tric ODBC trinh bay 
két n6i gitfa Ung dung Client va CSDL Server théng qua trinh quan ly 
diéu khién ODBC 


Tao ngu6n dif liéu ODBC 


Dé mot Ung dung Client ndi vGi co sé df liéu Client/Server ding ODBC; 
truGc hét, ta phai cung cap thong tin vé ngu6n dtr li€u ODBC trén Client. 
MOi Server yéu cau nhting g6i thong tin khac nhau dé n6i vGi Client. 
ODBC cung cap cho thong tin nay mOt tén don gian dé ta c6é thé tham 
chiéu dén no, thay vi phai thiét lap g6i théng tin tl’ dau mi lan ta can 
dén no. 


Ung dung Client cé thé tham chiéu m6t cach dé dang dén t6 hop cua 
mot diéu khién, m6t co sé di liéu va c6é thé thém mOt ngudi sr dung va 
mat khdu. Tén nay chinh 1a tén ngu6n dt liéu hay Data Source Name 
(DSN). 


Dé tao m6t tén nguOn dt? li€u ODBC trén may Client, ta lam nhu sau: 


e M6 Control Panel. 
e Chon Administrative Tools\Data Source (ODBC), hp thoai quan tri 
nguOn dé liéu xuat hién: 


Hinh 10.2: H6p thoai quan tri ngu6n d& li6u ODBC 
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° Tacé thé tao m6t trong ba kiéu ngu6n dt ligu ODBC: 


o User DSN: chi cé ngudi ding tao ra nd mdi cé thé sur dung 
(trén may dang dung). 

o System DSN: bat ky ai str dung may nay déu cé thé ding dugc. 
Day citing 1a kiéu nguOn dtr liéu ma ta can tao khi cai dat Ung 
dung co s6 dif li€u Web. 

o File DSN: c6é thé du@c copy va st’ dung bdi may khac. 


e Khi hp thoai ODBC da mG ra, chon 16p UserDSN (hay System 
DSN), Tao m6t két ni mi, nhdn nit Add, man hinh sé hién ra nhu 
sau: 
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Hinh 10.3: Lua chon loai co sé dtr li€u can thiét dé tao két ndi 


e Chon loai CSDL ma ta mu6n thao tac (Access, Foxpro, SQL 
Server,...), nhan Finish. Sau khi nhdn Finish, m6t man hinh sé hién 
ra cho phép ta nhap vao Data Source Name, day la tén cUa két n6i 
CSDL. Tén cUa két néi khéng can phai gidng vdi tén cUa co sé dt 
liéu. Phan Description ding dé g6 cdc thong tin m6 ta vé két ndi. 
Ngoai ra ta con phai chon dung dan dén tap tin CSDL tuong Ung. 


Truy cap ngu6én dif liéu v6i diéu khién DAO Data va ODBC 
Direct 


DAO tu dOng nap b6 may co sé df liéu Jet m6i khi n6 truy cap dir liéu 
Client/Server, tham chi khi ta khong thu’c su’ sU' dung co sO dU liéu 
Jet/Access. 


Ngoai ra ta con cé thém tity chon st? dung ODBCDIRECT dé truy cap dt 
liéu Client/Server. Day 1a m6t chuyén d6i dé truy cap co sé dt liéu 
server trUc ti€p thong qua DAO ma khong can nap b6é may co sé dt liéu 
Jet. Tuy chon nay thich hgp khi ta phai ding DAO dé truy cap dt liéu 
Client/Server ma kh6éng can ban tam vé tinh linh hoat, kha nang sU' dung 
lai va tinh dé bao tri cUla chUOng trinh. 


Vi du: Tao mét Form c6é su’ dung ODBCDirect va DAO Data Control. 
e Tao du an m6i. 
e Tham chiéu dén diéu khién luGi Microsoft Data Bound Grid Control 


trong mUc Project\Components. 
e Tao Form co dang sau: 
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12Hinh 10.4: Vi du vé ODBC Direct 
1: DBGrid. Name: dbGrid1. 

2: Data Control. Name: Datal. 


e D6Oi thu6c tinh DefaultType cUa DataControl la 1 — Use ODBC. Diéu 
nay lam cho chUOng trinh thUc hién nhanh hon. 

e ThuOc tinh Connect cUa Datal 14: ODBC;DSN=DBHH 

e Dat thu6c tinh Record Source cUla Data Control: 


Select * From THANGHOA 


Dat thu6c tinh Data Source cua DBGrid1 1a: Datal. 
Luu dy an va thUc thi chuOng trinh. 
Truy cap dtr liéu ding diéu khién dt liéu tt xa 
Diéu khién dt liéu tl xa (Remote Data Control - RDC) 1a m6t cach khac 
truy cap dtr liéu tu xa trong céc Ung dung Visual Basic. Diéu khién nay 
ding m6t giao dién ldap trinh tuong tu nhu diéu khién ADO Data hay 
DAO Data. 
Vi du: SU dung RDC dé hién thi di liéu trén Ludi: 
© O day ta co sU’ dung Remote Data Control va lUGi hién thi dt liéu, 
do dé ta tham chiéu dén cdc thanh phan nay bang cach chon 
Project\Components..., thiét lap tham chiéu dén Microsoft Remote 


Data Control va Microsoft Data Bound Grid Control. Nhap OK. 
e Thiét ké Form cé dang sau: 
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11Hinh 10.5: Vi du vé Remote Data Control 
1: RemoteDataControl. Name: rdcHangHoa 
2: DBGrid. Name: dbgHangHoa. 


¢ Dat thuGc tinh DataSourceName cUa diéu khién rdcHangHoa 1a 
DBHH (DSN da tao truGc day). 
e Dinh thu6c tinh SQL cUa diéu khién rdcHangHoa 1a: 


Select * From THANGHOA 


¢ Chi dinh thu6c tinh DataSource cUa diéu khién dbgHangHoa 1a 
rdcHangHoa. 
e Thuc thi chuOng trinh. 


Remote Data Object (RDO) 


DOi tuong dtr liéu tu xa (Remote Data Objects - RDO) dudc m6 ta dang 
hinh cay tuong tu nhu DAO. Tuy nhién m6 hinh déi tudng RDO don gian 
hon DAO. 


Di vay ta khong thé ding RDO dé tao d6i tung co sé dir li€u nhu 
bang, view, thu tUc chUfa san... 


Dé tham chiéu dén RDO ta vao Project\References...\Microsoft Remote 
Data Object 2.0. 


M6 hinh d6i tugng RDO: 


“ODBC Data Source Administrator ax 


Use 05H | yn FSH iva] Tig] Comex P| A | 


Add. | 
BASE Files Microsoft dBase Driver (‘dbf 


dBase Files Word Microsoft dBase VFP Diver (db) Remove | 


Excel Files Microsoft Excel Driver (ls) 
FoxProFiles-Word Microsoft FoxPto YEP Driver {* hf} Confgue., 
WS Access Database — Microsoft Access Dnver{* mdb} ia. 
Visual FoxPro Database Microsoft Visual FoxPro Diver 
Visual FoxPro Tables Microsoft Visual FoxPro Diver 


User Data Sources: 


A An ODBC User data source stores information about how to connect to 
the indicated data provider, A User data source is only vsble to you, 
and.can orly be used on the curent machine 


D6i tugng RDOEngine 


Day 1a dOi tugng G cap cao nhat trong m6 hinh RDO, gidi thiéu vé cdc 
thanh phan cUa m6 hinh. Ta khong can phai khdi tao d6i tung nay cach 
tuOng minh bdi vi né dudc khdi tao tu dong. 

DOi tuOng rdoEngine cho phép ta truy cap toan b6 cdc di tuong khac 
trong m6 hinh RDO. Ngoai ra, no con dudc st dung dé tao mdi m6t Data 
Source Name (DSN) nho vao phuong thUrc rdoRegisterDataSource. Doan 
ma lénh dui day cho phép dang ky mOt ngu6n dt liéu mdi cho co sd dt 
li€u Pubs (cua SQL Server): 

Dim strTemp As String 

strTemp = “Description=Test DSN” & Chr(13) & _ 

“SERVER=(local)” & Chr(13) & “Database=Pubs” 
rdoEngine.rdoRegisterDataSource “MyTestPubs”, “SQL Server”, _ 


True, strTemp 


DO6i tugng RDOError 

DOi tuOng 106i x4c dinh thao tac nao trén mOt nguOn d&f liéu gay ra 16i. 
Day khéng phai 1a cdc 16i cUa Visual Basic vi no xay ra dOi vGi co so dt 
liéu. Vi thé, ta khéng can phai bay 16i cho cdc 106i nay. Thay vao dé, tap 
hop rdoErrors sé xac dinh thao tac cUa ta 1a thanh céng hay that bai. 
Chang han nhu doan ma lénh sau: 

Dim objError As RDO.rdoError 

Dim strError As String 

For Each objError In rdoEngine.rdoErrors 


strError = strError & objError.Description & vbCrLf 


Next 


' Display Errors 


MsgBox "The following errors occurred: " & strError 


DOi tugng RDOEnvironment 

DOi tuOng nay chi ra cach thc bao mat cUa co sO dt liéu. Ta sr dung 
dOi tung nay dé xéc dinh dinh danh ngudi ding cting mat khau hay thi 
hanh m6t phién giao dich (Transation) trén co s6 dt liéu. 

DOi tuogng nay khong dudc khdi tao trUc tiép, chting dugc tao ra tU 
d6ng. 

D6i tugng RDOConnection 

Phan 16n cac chUc nang cua RDO bat dau vGi d6i tuong rdoConnection; 
d6i tuong nay cho phép thiét lap mOt ndi két dén m6t ngu6én dt liéu 
ODBC. Khi nguOn dif liéu da duc dinh nghia, cdc thu6c tinh cing cac 
phuong thtfc cUa dOi tuong nay duc sr dung dé giao tiép vi nguOn dt 
liéu ay. 


Doan ma lénh don gian du6i day cho phép tao m6t n6i két dén ngu6én 
dtr liéu cé tén 1a Biblio. 


Set m_Connection = New RDO.rdoConnection 
m_Connection.Connect = “DSN=Biblio” 


m_Connection.EstablishConnection 


D6i tugng RDOQuery 


DOi tuong nay dudc st dung dé thuc thi cdc cau truy van trén ngudn dt 
liéu ODBC. Cac cau truy van nay cé thé 1a cdc cau SQL hay 1a 10i goi 
thUc thi cdc thu tUc luu tr san trong co so df liéu. Néu 1a 160i goi cdc 


thu tuc luu tr(f san thi tham s6 cUa cac thU tuc nay dugc xac dinh nhd 
doi tuong rdoParameter. 


Hai yéu t6 then cht dé xéc dinh m6t d6i tudng rdoQuery 1a ndi két nao 
can truy van va cau lénh SQL dé truy van df liéu. 


Vi du: Gia sU ta cé doan ma lénh bén trén dé tao néi két dén ngu6n dt 
li€u Biblio. Doan ma lénh dui day thyc thi cau 1énh SQL lay vé thong 
tin vé tat ca cdc nha xuat ban: 

‘ Tao cau SQL 

Dim strSQL As String 

strSQL = “SELECT * FROM Publishers” 

‘Tao d6i tuong Query 

Dim m_Query As RDO.rdoQuery 

Set m_Query = New RDO.rdoQuery 

Set m_Query.ActiveConnection = m_Connection 

m_Query.SQL = strSQL 


m_Query.Excute 


D6i tugng RDOResultset 


DOi tuOng nay quan ly cdc mu tin dugdc tra vé tl’ mt ni két qua 
ODBC. Tap caéc mau tin co thé dugc tra vé théng qua d6i tugng 
rdoQuery hay nhO phuong thUtc OpenResultset cua mOt d6i tudng 
rdoConnection. Trong m6t s6 truOng hp, tap cdc mau tin dugc truy xuat 
nho vao thuGc tinh LastQueryResults cua d6i tuQng rdoConnection: 


Set m_Resultset = m_Connection.LastQueryResults 


Khi d6i tuong rdoResultset duc tao ra, ta c6é thé di chuyén dén mau tin 
xac dinh bang cdc phuOng thUc MoveFirst, MoveLast, MoveNext, 
MovePrevious. 


D6i tugng RDOTable 
DOi tuOng nay xac dinh m6t bang trong mOt nguén dt li6u ODBC. DOi 
tung nay kh6ng dudc st dung cho cac thao tac truy xuat dr liéu ma n6 


chi duc slr dung khi ta can xéc dinh cau tric cdc bang cUa co so dtr liéu 
cUa ta. 


D6i tugng RDOParameter 


DOi tuOng nay xac dinh cdc tham sO dau vao hay cdc két qua nhan dudc 
tU cdc thu tUc lutu tr san trong co sO df liéu. 


SU dung RDO trong chuOng trinh 

Thiét lap két n6i dén nguén df liéu 
e TrUGc tién ta phai tham chiéu dén m6 hinh d6i tuong RDO. 
e NOi két dén nguOn di liéu nhd d6i tudng rdoConnection. 

- Khai bao m6t bién d6i tugng rdoConnection. 


- Khdi tao d6i tudng, sau d6 thiét lap cdc thudc tinh va cdc phuong thttc 
thich hop dé hoan tat két n6i; trong d6 cé hai thu6c tinh can quan tam 1a 
chudi két ndi (ConnectionString) va loai con tro (Cursor Driver). 


e Thiét lap nOi két nhO phuong thUc EstablishConnection cUa d6i 
tung rdoConnection. 


Chui két n6i (ODBC Connect String) 


Chu6i két n6i duc sur dung khi thiét lap nOi két dén nguén dt liéu. 
Day 1a m6t chuOi (String) xac dinh cdc théng tin quan trong gi dén trinh 
diéu khién ODBC dé truy cap dt? li€u. Cac thong tin can quan tam: tén 
ngudn dt li€u (DSN Name), User ID, Password. 


Cac tham s6 cla chudi két néi ODBC: 


Tham sO 
DSN 
UID 
PWD 
DRIVER 


DATABASE 


SERVER 


WSID 


APP 


Y nghia 

Tén nguOn di ligu ODBC 

Tén ngudi ding co sé dt liéu 

Mat khau truy cap 

Trinh diéu khién DBC 

Tén cla co sO dtr liéu dudc ni két 


Tén may chtfa co sO dif liéu phuc vu (database 
server) 


Tén may chUa co s6 dtr li€u khach (database 
client) 


Tén cUa tap tin chUOng trinh (*.exe) 


Chu6i két ndi duc xac lap nh6 thuéc tinh Connect cUa d6i tuong 


rdoConnection. 


Vi du: Chudi néi két dén 1 DSN cUa co s6 dt li€u Access Biblio: 

Set m_Connection = New RDO.rdoConnection 

m_Connection.Connect = "DSN=Biblo" 
m_Connection.EstablishConnection 

Chu6i néi két d€n DSN Publications cUa co sO dtr liu SQL Server: 

Set m_Connection = New RDO.rdoConnection 

m_Connection.Connect = "DSN=Biblo; UID=sa; PWD=;" 
m_Connection.EstablishConnection 

Bén canh ndi két chuan thong qua ODBC, RDO ciing ho tro loai ndi két 
DSN cap thap (DSN-less connection). Ddi vGi loai nay, ta khong can dinh 
nghia tén nguOn dt? liu (DSN) trong bO quan tri ODBC cUa Windows. 
Lic nay tat ca cdc théng tin vé co sO dif liéu duc cung cap day du 
trong chuOi noi két. 

Vi du: Chudi ni két cap thap dén co s@ dtr li€u SQL Server Pubs: 

Set m_Connection = New RDO.rdoConnection 

m_Connection.Connect ="DRIVER={SQL Server};” & _ 
“SERVER=(local); DATABASE=Pubs;UID=admin;PWD=;DSN=;" 


m_Connection.EstablishConnection 


Trinh diéu khién con tré (Cursor Drivers) 


Trinh diéu khién con tré xac dinh cach thc tap cdc mau tin tra vé tl co 
sO dt liéu dudc luu tr nhu thé nao, cé thé ching dudc lu tr tai may 
chu (server) hay may tram (client). 


Trinh diéu khién con trd du@c thiét lap nhO thu6c tinh CursorDriver cUa 
d6i tuong Connection (tru6c khi goi thUc thi phuong thUc 
EstablishConnection) va cac gia tri sau c6 thé dé cU cho no: 


Gia tri 


rdUselfNeeded 


rdUseODBC 


rdUseServer 


rdUseClientBatch 


rdUseNone 


Y nghia 


Trinh diéu khién ODBC tu d6ng xac dinh 
loai con tré (duc luu phia server hay client). 
Néu cé thé, con tré loai dudc luu phia server 
duoc dé ctr. 


Xac dinh loai con tr6 cua ODBC chuan, 
nghia 1a tap tat ca cdc mau tin dudc luu G 
may client. 


Tap cdc mau tin du@c luu phia server. Tuy 
nhién loai con tro nay kh6ng thich hop lam 
trong méi truOng da nguoi ding. 


Gidng nhu rdUseODBC nhung cé thé duoc 
cap nhat d6ng thoi. 


Khong sU dung con tro, tap cdc mau tin 
dugc tra vé m6t lan duy nhat luc chting 
dudc yéu cau. Ta chi c6 thé di chuyén tdi 
trong tap céc mau tin két qua. 


DOi tuong dtr liéu ActiveX 

Muc tiéu: Chuong nay gidi thiéu vé thu vién ActiveX Data Object 
(ADO), thu vién d6i tuong duoc st dung nhiéu nhat trong cdc Ung dung 
truy cap co sO dt liéu dang khach/chu (Client/Server) hién nay. 

Hoc xong chuOng nay, sinh vién phai nam bat dugc cac van dé sau: 

- Kién tric OLEDB/ADO. 

- Cay phan cap ca m6 hinh d6i tudng ADO. 


- SU dung thu’ vién d6i tuong ADO dé tuong tac vGi co sé dt liéu trong 
VB. 


Kién thc c6 lién quan: 
- Cac cau tric lap trinh trong VB. 
- Cau lénh truy van df liéu trong co sO dtr liéu. 


- Nam bat duc cac m6 hinh DAO, RDO 1a m6t Idi thé vi lic dé viéc 
tiép thu m6 hinh ADO duc nhanh hon. 


Tai li€u tham khao: 


- Microsoft Visual Basic 6.0 & Lap trinh co sé di liéu - Chuong 27, trang 
877 - Nguyén Thi Ngoc Mai (chU bién) — Nha xuat ban Gido duc - 2000. 


- Tu hoc Lap trinh co s6 dt liéu vGi Visual Basic 6 trong 21 ngay (T2) — 
Chuong 18, trang 277 - Nguyén Dinh Té (chu bién) - Nha xuat ban Gido 
duc - 2001. 


ADO (ActiveX Data Objects) la céng nghé truy cap co sé dt liéu huGng 


di tuong tuong tu nhu DAO. Hién nay, ADO dudc Microsoft xem ky 
thudat chinh dé truy cap dtr liéu tly Web Server. 


Kién tric OLE DB/ADO 


ADO st dung OLEDB nhu 1a trinh cung cap di liéu co sé. Trinh cung 
cap OLE DB cho phép ngu@i lap trinh c6 thé truy xuat df liéu tu ca hai 
nguOn: quan hé va phi quan hé. VB6.0 da h6 tro cac trinh cung cap cUc 
bO cho SQL Server, Oracle va Microsoft Jet/Access. 


Client Application 
Remote Data ActiveX Data 
Objects Objects 
ODBC Driver 
ODBC Driver 
Manager 


Relational Database 


Hinh 11.1: M6 hinh lap trinh CSDL Client - Server dung RDO 
va ADO 


Ta chi can lap trinh vGi phan giao dién ngudi sU dung 6 phia Client. 
Viéc truy cap co sO dtr liéu trén trinh duyét Web hay Ung dung VB dudc 
thuc hién nhO ADO. Cau triic nay cho phép ta lap trinh m6t cach nhat 
quan trén Web ciing nhu trén Ung dung. 


M5 Internet 
Information 
Server with Active 
Server Pages 


Hinh 11.2: Truy cap CSDL tr trinh wng dung & trinh 
duyét WEB theo ADO 


Mo hinh ADO 


M6 hinh ADO du%c trinh bay theo dang phan cap (tuong tu DAO va 
RDO). 


Dé cé thé lap trinh vdi thu vién ADO, ta phai tham chiéu dén thu vién 
nay bang cach chon Project\References...\Microsoft ActiveX Data Object 
2.0. 
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Hinh 11.3: M6 hinh ADO 
M6 hinh ADO cé 3 d6i tuong cét di: 


¢ Connection: két ndi CSDL that su. 

e Command: thUc thi cdc cau truy van dUa vao két n6i df liéu. 

e RecordSet: 1a tap céc mau tin duc chon tU cau truy van thong qua 
d6i tugng Command. 


Cac d6i tuong trong m6 hinh ADO 


D6i tugng Connection 


Ding phuong thttc Open cUa dOi tugng Connection dé thiét lap két ni 
vGi nguOn dif liéu. Dé thuc hién diéu nay ta can phai thong bao vi 
ADO thong tin két n6i vGi dang chu0i theo kiéu chudi két nOi cua 
ODBC. Thu6c tinh ConnectionString thuc hién diéu nay. Ngoai ra ta con 
cé thé chon trinh cung cap bang cach quy dinh gia tri cUla thudc tinh 
Provider cUa d6i tuong. 


Dé n6i két vGi dt liéu, ta can xdc dinh trinh cung cap OLE DB va chudi 
két noi. Néu khong xéc dinh duc hai yéu t6 nay, ta sé str dung trinh 
cung cap mac dinh la ODBC: MSDASQL. 

MOt sO trinh cung cap cé san: 


e Microsoft OLEDB cho cac trinh diéu khién ODBC. 
e Microsoft OLEDB cho Oracle. 

e Microsoft Jet 3.51 OLEDB (Access). 

e Microsoft Jet 4.0 OLEDB (Access) 

e Microsoft OLEDB cho SQL Server. 

e Microsoft OLEDB cho cac dich vu thu muc. 


Vi du: 


DOi vGi trinh cung cap ODBC, thudc tinh ConnectionString cé thé 1a mét 
DSN hay 1a m6t két ndi khong c6 DSN (DSN cap thap). 


Dim cn As ADODB.Connection 
Set cn = New ADODB.Connection 
cn.Provider = "MSDASQL" 


cn.ConnectionString = "DSN=Baigiang" 


cn.Open 

Két nOi DSN cap thdp: 

Dim cn As ADODB.Connection 

Set cn = New ADODB.Connection 

cn.Provider = "MSDASQL" 

cn.ConnectionString = "DRIVER={SQL Server};” & _ 
“DATABASE=Baigiang; UID=myuser;PWD=mypassword;" 

cn.Open 

Trong truOng hp nay viéc két ndi vi co sé dt liéu Server dudc thu 
hién nhanh hon vi chung trinh khéng can doc thong tin vé cdc DSN trén 
may Client, tuy nhién théng tin vé ngu6n co sO dt liéu lai két chat vGi 
chuOng trinh da bién dich. 


Dé két ni vGi co s6 dt li€u Access, ta dig trinh cung cdp Jet vGi chudi 
két ndi la duOng dan dén tap tin .mdb 


Dim cn As ADODB.Connection 

Set cn = New ADODB.Connection 

cn.Provider = "MicroSoft.Jet.OLEDB.4.0" 

cn.ConnectionString = "d:\data\baigiang.mdb" 

cn.Open 

DGi vdi co sé dif li€u SQL Server, ta co thé ding trinh cung cap 
SQLOLEDB.1, trong truOng hop nay, chudi két n6i tuong tU nhu trudng 


hop két n6i ding trinh cung cap ODBC khong cé DSN, tuy nhién ta khong 
can xac dinh gia tri cua DRIVER: 


Dim cn as ADODB.Connection 

Set cn = New ADODB.Connection 

cn.Provider = “SQLOLEDB.1” 

cn.ConnectionString = “DATABASE=DBHH;” & _ 
“SERVER=www;UID=user;PWD=user” 

cn.Open 

M6 va dong noi két ngu6n df liéu 

Dé phat cdc yéu cau dén ngu6én dt liéu st? dung ADO, ta can mG két ndi 
dén ngu6én dtr liéu d6 bang phuong thUfc Open cUa d6i tuong 
Connection. Cu phap day dU nhu sau: 

connection.Open [connect], [userid], [password] 

Tat ca cdc tham sO cUa phuOng thUfc Open déu 1a tty chon, néu nhu cdc 
thong sO nay da duc xac dinh thong qua cac thuGc tinh khac cUa di 
tung Connection thi ta khéng can m6 ta ching 6 day. 

Khi da hoan thanh tat ca céc thao tac lién quan dén ni két nay, ta can 
phai dong ni két m6t cach tuOng minh thong qua phuong thUfc Close 
cUa d6i tugng Connection. 

connection.Close 

Dong nOi két mét cdch tuOng minh sé dam bao rang tat ca cac tai 
nguyén lién quan dén n6i két nay trén Server ciing nhu Client déu dugc 
giai phoéng mt cach hgp ly. 


XAc dinh vi tri con tro 


Con tr (Cursor): mt tap cdc mau tin dugc tra vé cho chuOng trinh. Vi 
tri con tro dudc xac dinh nho thu6c tinh CursorLocation (cé 6 ca d6i 


tuOng Recordset). C6 2 gia tri cé thé chi dinh: 


e adUseClient: con tré phia Client. 
e adUseServer: con tro phia Server (mac dinh). 


Thuc thi cdc cau truy van hanh dOng 


Cac cau truy van hanh d6ng (Insert, Update, Delete) du@c thuc hién nhd 
phuong thUc Execute cua d6i tudng Connection; ngoai ra phuOng thUc 
nay cting cé thé dudc str dung dé thu thi cdc thU tuc 1Uu trff san trong 
co sO dt liéu hay cdc cu SELECT. Cu phap phuong thurc nay nhu sau: 
Néu khong c6 két qua tra vé: 

connection.Execute CommandText, RecordsAffected, Options 

Co két qua tra vé: 


Set recordset = connection.Execute (CommandText, RecordsA ffected, 
Options) 


Trong do: 

- connection: DOi tudng Connection. 

- recordset: DOi tung Recordset 1a két qua tra vé cUa phUOng thUc 
Execute, tuy nhién, ngudi ta thuOng it khi sU' dung cach nay. Thay vao do, 
ngudi ta thuOng su dung phuoOng thUc Open cUa di tuong Recordset. 


- CommandText: 14 m6t chudi xac dinh cu truy van hanh dOng, SELECT, 
thu tuc luu trf san hay tén m6t bang trong co sé dt liéu. 


- RecordEffected: Tay chon, la m6t s6 nguyén dai (Long) xac dinh trinh 
cung cap tra vé bao nhiéu mau tin thda diéu kién. 


- Options: Tuy chon, la m6t s6 nguyén dai (Long) xac dinh trinh cung cap 
s@ danh gid cdc d6i sO cua CommandText nhu thé nao. 


ThuOc tinh Mode: X4c dinh trinh cung cap cé thé han ché truy cap dén 
co sO dt liéu khi c6 mOt recordset dang m6. Cac gia tri c6 thé 1a: 


Hang sO 


adModeUnknown 


adModeRead 


adModeWrite 


adModeReadWrite 


adModeShareDenyRead 


adModeShareDeny Write 
adModeShareExclusive 


adModeShareDenyNone 


12 


16 


Y nghia 
Mac dinh, chi dinh quyén han 
chua thiét lap hay khéng thé 


xac dinh 


M6 Recordset vGi quyén chi 
doc 


MO Recordset vGi quyén chi 
ghi 


M6 Recordset vGi quyén 
dOc/ghi 


Ngan ngudi khéc mo két ndi 
vGi quyén chi doc 


Ngan ngudi khéc mo két n6i 
vGi quyén chi ghi 


Ngan ngudi khéc mo két n6i 


Ngan ngudi khéc md két ndi 
vGi bat cU quyén nao 


D6i tung Recordset 


Dé c6 thé khGi tao mt d6i tuong Recordset ta cd thé thurc hién mot 
trong hai cach: 


e Phuong thttc Execute cUa d6i tuong Connection. Tuy nhién cach nay 
ta chi tao duc caéc Recordset chi doc va chi co thé di chuyén tdi. 

e X4c lap cac thong s6 thich hop cho d6i tung Recordset ri thUc thi 
phuong thUtc Open cUa d6i tuong Recordset. Diéu nay dudc thuc 
hién nho cac buGc: 


o Sau khi khdi tao d6i tugng Connection, chi dinh Recordset 1a 
cUa d6i tuong Connection trén. 

o Thiét lap cdc thuGc tinh thich hop cUa Recordset (Source, 
LockType...). 

o Thuc thi cau truy van ndi két nhd phuong thUfc Open. 


ThuGc tinh CursorType (loai con trd) 


Xac dinh loai con tro dugc tra vé tl co sé dt liéu. Cac gia tri cd thé 
nhan: 


Hang Gia wo ta 

tri 
adOpenForwardOnly 0 Chi c6 thé di chuyén phia truc 
adOpenKeyset 1 Khong thé thay cdc mau tin do 


nguoi ding khac thém vao nhung 
khi ho xéa hay stra d6i mau tin 


sé lam anh huGng dén cdc mau 
tin ta dang lam viéc. 


adOpenDynamic D Co the thay toan bo su thay doi 

do nguoi dung khac tac dOng. 
Ban sao tinh cUa tap mau tin. 
adOpenStatic 3 Moi su thay d6i cUa ngudi ding 
khac ta khéng thay du@c 


Thudc tinh LockType (khéa mau tin) 


XAac dinh cach thttc khéa mau tin trong Recordset. Ding tinh nang nay khi 
muOn kiém soat cach thc cap nhat mau tin v6i nhiéu ngudi ding trong 
co sO dt liéu. 


Hang Gia M6 ta 
tri 
adLockReadOnly 1 Mac dinh - Chi doc. 
Khoa trang bi quan. Mau tin 
trong RecordSet bi khéa khi 
ee bat dau stta d6i & ti€p tuc 
dLockP t 2 nw 
Sroeieeetenr pee khéa cho dén khi thi hanh 
phuong thUfc Update hay di 
chuyén sang mau tin khac. 
adLockOptimistic 3 Khoa trang lac quan. Mau tin 


chi bi khéa ngay hic thi hanh 


phuong thtfc Update hay di 
chuyén sang mau tin khac. 


Khoa trang lac quan hang loat. 
adLockBatchOptimistic 4 HO tro cap nhat nhiéu mau tin 
cung m0t hic. 


Thu6c tinh Source 


Day 1a mOt chudi xac dinh cau truy van dé lay dtr liéu, cd thé 1a tén cua 
bang hay tén cUa thu tUc lUu tr san. 


Thu6c tinh ActiveConnection 


Day 1a mOt thu6c tinh d6i tung xac dinh Recordset 1a cUa nOi két nao 
trong chUOng trinh. 


Vi du sf dUng d6i tugng Recordset trong chUOng trinh 


DOi tuong Recordset c6 thé dudc str dung 1a d6i tung nguOn dif liéu 
(DataSource) cia diéu khién 1U6i: Microsoft DataGrid Control 6.0 
(OLEDB). Nh6@ diéu khién lui nay ta cé thé hién thi dt liéu tr mot 
Recordset theo dang hang va cOt. 


Chang han ta cé thé hién thi trén lUGi thong tin vé cdc mat hang cing v6i 
ma loai hang cUa n6: 


Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 


Private Sub Form_Load() 


Set cn = New ADODB.Connection 
cn.Provider = "Microsoft.Jet.OLEDB.3.51" 
cn.ConnectionString = "F:\Data\DBHH.mdb" 


cn.Open 


Set rs = New ADODB.Recordset 


rs.Source = "SELECT MaHang, TenHang, DVTinh” & _ 
“TenLoai FROM THangHoa, TLoaiHang WHERE “ & _ 
“THangHoa.MaLoai = TLoaiHang.MaLoai" 

Set rs.ActiveConnection = cn 

rs.CursorLocation = adUseClient 

rs.Open 

Set grdHH.DataSource = rs 

End Sub 


Két qua thu thi cUa chuOng trinh nay nhu sau: 
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Hinh 11.4: Str dung Datagrid dé hién thi dtr liéu tlr Recordset* 


*: Microsoft DataGrid Control 6.0 (OLEDB): Name: grdHH. 


Cp nhat va thém mdi mau tin 


Thém mGi mau tin 

-M6 Recordset 

-Thi hanh phuoOng thUtc AddNew 

-Gan gia tri cho cdc truOng trong mau tin cUa Recordset 


-LuUu lai mau tin bang cach thi hanh phuong thttc Update (hay 
UpdateBatch). 


Cap nhat mau tin 

-MO Recordset 

-Thuc hién cau 1énh truy van dé nhan vé cdc mau tin thich hgp. 
-Di chuyén dén mau tin can cap nhat lai gid tri. 

-Gan lai gid tri cho cac truOng. 


- Thi hanh phuong thutc Update (hay UpdateBatch tity thu6c vao 
LockType). 


Luu y:Ché d6 khéa mau tin mac dinh trong ADO 1a chi doc, vi vay ta 
phai d6i thu6c tinh LockType cUa d6i tuong Recordset sang ché d6 soan 
thao truGc khi thi hanh cap nhat hay thém mdi mau tin. 


Thu6c tinh CursorLocation 


Xac dinh tap mau tin tra vé tU' co s6 dt liéu dudc luu 6 dau (Server hay 
Client, Server la mac dinh). Thu6c tinh cing giéng thuGc tinh 
CursorLocation cUa d6i tu@ng Connection. 


Recordset ngat két n6i 


Khi chting ta ding con tro phia Client, ta cd kha nang ngat két ndi vi 
Server cO sO dif li€u ma van tiép tuc lam viéc v6i dif li€u. Cach nay cho 
phép tng dung trd nén linh hoat hon bGi vi nhiéu ngudi ding cé thé lam 
viéc vGi cing mt dtr liéu tai mOt thoi diém néu nhu ho khéng c6 n6i 
két vGi server. 


Dé ngat nOi két vGi Server, ta quy dinh thu6c tinh ActiveConnection cla 
doi tuQng Recordset la Nothing. 


Vi du: 

Dim cn As ADODB.Connection 

Private Sub Form_Load() 

Set cn = New ADODB.Connection 
cn.Provider = "Microsoft.Jet.OLEDB.3.51" 
cn.ConnectionString = "F:\Data\GiangDay.mdb" 
cn.Open 

End Sub 

Public Function GetList (strState As String) _ 
As ADODB.Recordset 

Dim rs As ADODB.Recordset 

Set rs = New ADODB.Recordset 

Set rs.ActiveConnection = cn 
rs.CursorLocation = adUseClient 


rs.LockType = adLockBatchOptimistic 


rs.CursorType = adOpenKeyset 
rs.Open strState 

Set rs.ActiveConnection = Nothing 
Set GetList = rs 

Set rs = Nothing 

End Function 


Dé thi hanh cting m6t hanh dOng trén mOt mau tin, ta sUta di lai cdc 
thu6c tinh cUa d6i tuong Recordset. 


rs.LockType = adLockBatchOptimistic 
rs.CursorlType = adOpenKeyset 


Chiing ta thiét lap gia tri cac thu6c tinh lai nhu trén dé xac nhan rang 
Recordset c6 thé ndi két lai dé cap nhat vé sau. 


Sau do, ta sé thiét lap mOt ham nhdn Recordset ngat két ndi lam tham 
bién dé tao m6t d6i tugng Recordset khac cap nhat dt? liéu. 


Public Sub WriteData(rsDis As ADODB.Recordset) 
Dim rs As ADODB.Recordset 

Set rs = New ADODB.Recordset 

Set rs.ActiveConnection = cn 

rs.Open rsDis, cn 

rs. UpdateBatch 


End Sub 


Goi thuc thi thu tuc WriteData: 
Private Sub cmdWrite_ClickQ) 
WriteData GetList("Select * From THanghoa") 


End Sub 


D6i tugng Command 


Day 1a d6i tuong duc ngudi lap trinh str dung khi mu6n thi hanh céc 
thu tuc lu trf san hay nhting cau truy van cé tham sO. 


VGi d6i tuong Command ta cé thé thi hanh m6t s6 cong viéc nhu sau: 


- SU dung thuGc tinh CommandtText dé dinh nghia céc doan Text thi hanh 
duoc. Thong thuOng thuGc tinh nay ding dé thiét lap m6t cau 1énh SQL 
hodc m6t 16i goi thU tUc uu tr san, hay nhtmg dang khac ma trinh cung 
cap ho tro 


- X4y dung chu6i caéc d6i s6 cUa cau truy van cling nhu cac tham s6 cua 
céc thu tUc lUu tri san théng qua d6i tuong Parameter hodac tap hop 


Parameters. 


- Thuc hién m6t cau truy van va tra vé di tudng Recordset thong qua 
phuong thUc Execute. 


- Xac dinh kiéu cUla d6i tung Command dé nang cao hiéu qua thong qua 
thu6c tinh CommandType. 


- X4c dinh s6 giay ma trinh cung cap phai ché khi thi hanh m6t d6i tuong 
Command théng qua thudc tinh CommandTimeOut. 


Cac kiéu cua d6i tugng Command du@c trinh bay trong bang dudi day: 


Hang Y nghia 


Dinh gid thu6c tinh CommandText duGi 
adCmdText dang Text cua m6t cau lénh hodc m6t 160i 
gQi thu tUc luu tr san. 


Dinh gid thu6c tinh CommandText nhu 1a 
tén cUa mOt bang khi tat ca céc trudng 
cUa bang dé sé dudc tra vé bdi cau 1énh 
truy van n0i tai. 


adCmdTable 


Dinh gid thu6c tinh CommandText nhu 1a 
adCmdTableDirect tén cUa m6t bang khi ma tat ca cdc 
truOng cUa bang do sé dudc tra vé. 


Dinh gid thu6c tinh CommandText nhu 1a 


adCmdStoredProc ne ear ~, 
tén cua mOt thu tUc ]Uu tru san. 
Chi dinh rang thu6c tinh CommandText 1a 
m6t cau lénh hodac mOt thu tuc luu trff 
aniiscara oRecos san khong tra ve bat ky dong nao (vi du 


nhu lénh thém mdi d( liéu ...). Cau tric 
nay ludn bao ham adCmdText, 
adCmdStoredProc. 


ThuOc tinh Parameter duQc xdc lap thong qua hai phuOng thuc 
CreateParameter va Append 


Set parameter = command.CreateParameter (Name, Type, _ 
Direction, Size, Value) 
e Name: tuy chon, chu6i xac dinh tén cUa d6i tuOng Parameter. 
e Type, Direction: gia tri xac din ki€u cUla d6i tudng Parameter 


e Size: gid tri xac dinh dO dai tdi da cUa gia tri dOi tuOng Parameter 
bang ky tu hoac Byte. 


e Value: bién xac dinh gia tri cUa Parameter truyén. 


Nhting gia tri c6 thé cla thu6c tinh Direction: 


Hang M6 ta 
adParamUnknown Khong biét chiéu cUa Parameter. 

Mac dinh, xac dinh day 1a tham s6 dau 
adParamInput aS 

vao. 
adParamOutput Tham sO dau ra. 

Vua 1a tham s6 dau vao vUa la tham s6 
adParamInputOutput 


dau ra. 


adParamReturnValue Dy 1a gid tri tra vé. 


Phuong thtrc Append ding dé dua d6i tugng Parameter vUa tao vao tap 
hop. Chiing ta sé xét qua vi dU dau day: 


Public Sub ActiveConnectionX() 

Dim cnni As ADODB.Connection 

Dim cmdByRoyalty As ADODB.Command 
Dim prmByRoyalty As ADODB.Parameter 
Dim rstByRoyalty As ADODB.Recordset 


Dim rstAuthors As ADODB.Recordset 


Dim intRoyalty As Integer 

Dim strAuthorID As String 

Dim strCnn As String 

‘Dinh nghia 1 d6i tugng command cho mét thU tuc luu tri san 
Set cnnl = New ADODB.Connection 
cnn1.Provider = "SQLOLEDB.1" 
cnn1.ConnectionString = "DATABASE=Pubs;" & _ 
"SERVER=(local); UID=user;PWD=user;" 
cnn1.Open 

Set cndByRoyalty = New ADODB.Command 

Set cndByRoyalty.ActiveConnection = cnn1 
cmdByRoyalty.CcommandText = "byroyalty" 
cmdByRoyalty.commandType = adCmdStoredProc 
cmdByRoyalty.CcommandTimeout = 15 

‘Dinh nghia d6i s6 dau vao cho thu tuc lUu tr 
intRoyalty = Trim(InputBox( "Enter royalty:")) 

Set prmByRoyalty = New ADODB.Parameter 
prmByRoyalty.Type = adInteger 
prmByRoyalty.Size = 3 


prmByRoyalty.Direction = adParamInput 


prmByRoyalty. Value = intRoyalty 
cmdByRoyalty.Parameters.Append prmByRoyalty 
'Tao m6t recordset bang cach thi hanh d6i tugng Command. 
Set rstByRoyalty = cmdByRoyalty.Execute() 

'MG bang Authors dé lay tén hién thi 

Set rstAuthors = New ADODB.Recordset 
rstAuthors.Open "authors", cnn1, , , adCmdTable 
Debug.Print "Authors with " & intRoyalty & _ 

" percent royalty" 

Do While Not rstByRoyalty.EOF 

strAuthorID = rstByRoyalty!au_id 

Debug.Print , rstByRoyalty!au_id &", "; 
rstAuthors.Filter = "au_id =" & _ 

strAuthorID & "" 

Debug.Print rstAuthors!au_fname & “ - “ & _ 
rstAuthors!au_Iname 

rstByRoyalty.MoveNext 

Loop 

rstByRoyalty.Close 


rstAuthors.Close 


cnn1.Close 


End Sub 


D6i tung Field 


Ding di tugng Field va tap hop Fields khi ta mu6n truy cap gia tri cua 
m6t truOng cua m6t Recordset nao dé, ky thuat nay tuOng tu nhu d6i vdi 
DAO. 


Dich vu dt liéu ttr xa cua ADO 


Day 1a ky thuat st? dung thu’ vién Remote Data Service (RDS) dé van 
chuyén ADO Recordset tl’ server dén may tinh client Recordset két qua 
du@c lu G6 may client va ching duc ngat két ni dén server. 


RDS 1a m6t phan cUa Microsoft Data Access Components (MDAC). Cac 
thong tin vé RDS cé thé tim thay 6 trang http://www.microsoft.com/data/. 
RDS g6m 2 phan chinh: 


- RDS 1.5 server: di kém khi cai dat Internet Information Server (IIS) 4.0. 
- RDS 1.5 client di kém khi cai dat Internet Explorer (IE) 4.0. 


Thu vién ADODB g6m cac thanh phan hoat d6ng chu yéu phia server 
(server side) nhu cac d0i tugng Connection, Command, Error, Parameters 
.. $6 that hiéu qua néu suf dung cdc thanh phan nay giao tiép vGi cO sO 
dit liéu. Tuy nhién trong truOng hop su dung cac chtfc hang can phai co 
6 phia client thi ta can phai phan phi kém theo m6t s6 tap tin va sU dung 
ODBC cho m6i may client. D6i tugng ADODB Recordset khong thé phan 
ph6i v6i cdc thanh phan cUa RDS Client. Thay vao dé thu vién d6i tugng 
Microsoft ActiveX Data Objects RecordSet (ADOR) dudc su dung. Thu’ 
vién nay gOm cac thanh phan hoan toan nam @ phia client va cho phép ta 
c6 cac thao tac trén m6t recordset that sU phia client. ADOR khong cé cac 


addi tuOQng Connection, Command, Error, hay Parameters. ADOR C6 cac 
chUc nang cho phép phan ph6i recordset vGi cdc thanh phan RDS client. 


M6t ADO Recordset khong thé van chuyén thong qua giao thUc http. 
Thay vao dé RDS dugc str dung dé nhan va tuong tac di liéu tl’ xa 
thong qua http. M6t proxy RDS dugc str dung dé kiém soat tlt xa mt 
ADOR Recordset ngat két n6i truyén thong qua giao thUc http. Nhu vay 


RDS 1a vat cha (container) cho phép luu trf va truy cap tu’ xa cac ADOR 
Recordset. 


Ta cé thé ding d6i tuong DataControl cua RDS dé nhan vé d6i tuong 
Recordset cua ADO tl Internet. 


Dé co thé str dung ky thuat nay, ta can tham khao cdc thu6c tinh chu yéu 
cUa d6i tung DataControl. 


- Thu6c tinh Connect: 
DataControl.Connect = "DSN=DSNName;UID=usr;PWD=pw;" 


- Thu@c tinh Server: X4c dinh may chU Web chUfa ngu6én dif liéu bao g6m 
tén va giao thUc n6i két. 


- Thu6éc tinh SQL: La cau 1énh truy van dé nhan vé d6i tugng Recordset 
DataControl.SQL = "QueryString" 


- Thu@c tinh ExecuteOptions: xdc dinh viéc thi hanh cdc cau 1@nh truy van 
m6t cach d6ng b6 hay khong, cac gia tri 14 mOt trong hai gia tri sau day: 


Hang M6 ta 


adcExecSync Thi hanh d6éng bo 


adcExecAsync Mac dinh, Thi hanh kh6ng d6ng bd. 


- Thu6c tinh ReadyState: Xac dinh trang thai cUla diéu khién. 


Gia tri M6 ta 


Cau truy van hién hanh van dang con 
thc hién va chu cé mt dong nao 

adcReadyStateLoaded dugc tra vé. D6i tudng Recordset 
cUa RDS.DataControl chua thé str 
dung. 


Tap hop dong ban dau da dudc tra 
vé va chtfa trong déi tuong 
Recordset, cdc dong ti€ép theo van 
dang duQc tra vé. 


adcReadyStateInteractive 


Tat ca cdc dong déu da dudc chtta 


dcReadyStateComplet 4 
adckeadyotateComplete trong doi tuOng Recordset. 


- Phuong thUfc Refresh: thi hanh cau truy van. 
- Thu6c tinh Recordset: tra vé Recordset két qua. 
Recordset = DataControl.Recordset 


- Phuong thc DoEvents: Day 1a ham cUa VB, no sé tra diéu khién cho 
hé diéu hanh thuc hién cdc qua trinh khac. 


MOi truOng dU liéu 

Muc tiéu: Chuong nay gOm cac bai tap nham rén luyén cho sinh vién 
cach thc sur dung mdi truOng dtr liéu (Data Environment) cUa VB dé lap 
trinh CSDL. 

Hoc xong chuOng nay, sinh vién phai nam bat dugc cdc van dé sau: 
SU dung thanh thao mdi trudng dt liéu g6m: 

- Tao di tudng Connection. 

- Tao d6i tuong Command. 

- Viét ma lénh thao tac vGi méi truOng dt liéu. 

Kién thttc c6 lién quan: 

- Giao trinh Visual Basic, ChuOng 12. 

Tai li€u tham khao: 


- Visual Basic 6 Certification Exam Guide — Chapter 10, Page 277 - Dan 
Mezick & Scot Hillier - McGraw-Hill - 1998. 


- Tu hoc Lap trinh co so dt liéu v6i Visual Basic 6.0 trong 21 ngay (T1) - 
Chuong 9, trang 395 - Nguyén Dinh Té (chu bién) — Nha xuat ban Gido 
duc - 2001. 


HUONG DAN 
Bai 7-1 
DATA ENVIRONMENT 


Data Environment cho phép chung ta tao Ung dung co sO dtr liéu vdi 
OLEDB m6t cach nhanh chong va hiéu qua. Trong bai tap nay, ta sé tim 
hiéu vé Data Environment va Report Designer cUla VB. 


Buc 1: Tao thu muc Basic\Bt7-1. Tao m6t du an kiéu Stardard EXE luu 
vao trong thu mUc do. 


Buc 2: Néu muc Data Environment khéng c6 san trong Project Explorer, 
ta chon Project\Components..., danh dau vao mUc Data Environment trong 
tiry chon Designers, nhdp OK. Chon Project\More ActiveX Designers... 
dé thém Data Environment vao mdi truOng soan thao. 


Buc 3: Trong Data Environment, nhap chudt phai vao d6i tuong 
Connection1, chon Properties..., chOn Microsoft Jet 3.51 OLE DB 
Provider. 


Buc 4: Trong mUc chon Connection, chon co sé df liéu minh mu6n 
thao tac trong mUc Select or Enter a Database Name Box; 6 day ta chon 
CSDL BIBLIO.MDB (thuOng 6 dung dan C:\Program Files\Microsoft 
Visual Studio\VB98\BIBLIO.MDB). Nhap nut Test Connection dé kiém 
tra ndi két v6i CSDL cé bi 16i hay kh6ng? Ta sé nhap OK néu n6i két 
nay thanh cong (néu khong ta phai kiém tra lai). 


Buc 5: Trong Data Environment, nhap chudt phai vao d6i tuong 
Connection1 va chon RENAME dé d6i tén thanh BIBLIO. 


Buc 6: Nhap chuét phai vao BIBLIO va chon ADD COMMAND trén 
menu, mOt d6i tugng command du@gc tao ra vGi tén 14 Command] trong 
Data Environment. Nhap chu6t phai vao d6i tudng mdi tao nay, chon 
RENAME dé d@i tén thanh Publishers. 


Buc 7: Nhap chu6ét phai vao Publishers va chon muUc Properties, mOt 
hOp thoai quy dinh cdc thu6c tinh cho d6i tung Publishers dudc md ra. 
Trong muc chon General, chon Source Data 14 SQL Statement va ta nhap 
cau SQL sau vao khung nhap: 


SELECT PubID, Name FROM Publishers WHERE Name LIKE ? 


Cau SQL trén phai nhan vao m6t tham s6 tU chUOng trinh goi né (dau 
cham héi). Nghia la dé cau SQL nay thu thi dudc, ta can cung cdp mot 
tham sO dau vao cho no. 


Bu6c 8: Dé dinh nghia tham s6, ta chuyén sang mUc chon Parameters, ta 
thay cé mt tham sO da dudc dinh nghia tén 14 Param1. Mac nhién cla 
tham sO nay 1a kiéu s6, tuy nhién ta sé di ching thanh kiéu chudi vi 
cac thu6c tinh nhu sau: 


Data TypeadVarChar 
Host Data TypeString 
Size255 


BuGc 9: Tao mOt recordset con cho d6i tugng Publishers command bang 
cach nhap chudt phai vao vao di tung nay va chon ADD CHILD 
COMMAND trén menu. Cac cau truy van nay ding dé tim théng tin vé 
cdc sach dUa vao nha xuat ban nao d6. Khi m6t command con duoc thém 
vao, no co ten la COMMAND 1. 


BuGc 10: Trong command con nay, no can phai cé m6t cau SQL dé truy 
xuat thong tin. Cau truy van nay cé nhiém vu két ndi théng tin tur cdc 
bang Title va Author d6i vGi ttmg loai nha xuat ban. 


Buc 11: M6 cUfa sO Data View bang cach chon View\Data View Window 
trén menu. Trong Data View, x4c dinh thu mUc Data Environment 
Connections. DOi tung connection BIBLIO dudc hién thi trong thu muc 
nay. M6 d6i tudng connection va xdc dinh thu muc Tables. Trong thu 
muc nay, chon bang Titles. Nhap dip vao bang Titles nay dé hién thi ndi 
dung cUa bang. 


Buc 12: Khi da hién thi ndi dung cUa bang, ta mG Data Tools bang cach 
chon VIEW\SHOW PANES trén menu. Chon tat ca cdc mUc trong phan 
nay (Diagram, Grid, SQL, Results). 


Buc 13: Khi tat ca céc mUc cUa Data Tool dudc chon, ta kéo cdc bang 
Title Author va Authors vao khung diagram cUa Data Tools. Sau dé ta phai 
kiém tra cdc lién két cUa cdc bang: bang Titles cé lién két vGi bang Title 
Author bdi trudng ISBN khéng? Bang Title Author cé lién két vGi bang 
Authors bdi tr'udng Au_ID khéng? Néu khong cé cdc m6i lién két nay ta 
phai chon diing truOng trong bang Title Author va kéo chting vao truOng 
tuOng Ung trong 2 bang Titles va Authors. 


BuGc 14: Dé tao ra cau truy van, ta danh dau chon vao truOng PubID, 
Title trong bang Titles; ttuOng Author trong bang Authors. Ké ti€p, kiém 
tra khung Grid ta thay cé m6t dong c6é dau * (nhu hinh duGi) biéu thi 1a ta 
da chon tat ca cdc truOng cUa tat ca cdc bang. Ta khong can chon tat ca 
thong tin, do dé ta nhap vao dong cé dau * va bam phim Delete dé xéa 
ching. Ltic d6 trong khung SQL ta thay cé cau SQL sau: 

SELECT Titles.PubID AS Expr1, Titles.Title AS Expr2, 

Authors.Author AS Expr3 

FROM Titles, “Title Author, Authors 

WHERE Titles. ISBN = “Title Author .ISBN AND 


*Title Author’.Au_ID = Authors.Au_ID 


#, Project! - Microsoft Visual Basic [design] - [Run Table: Titles] 
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Hinh VIL1: SQL Builder 
BuGc 15: Chon cau SQL hién thi bén trén r6i nhdp Edit\Copy. 


Buc 16: Nhap dtip trd lai vao Data Environment, nhap chu6ét phai vao 
command con da cé va chon PROPERTIES trén menu. Sau d6 d6i tén cla 
command trong mUc General thanh Titles. Chon Source Data la SQL 
Command; sau do dan ndi dung cau SQL da copy 6 trén vao khung nhap 
cau SQL (chon Edit\Paste). 


Buc 17: Chon muc RELATION , ta thay trudng PubID cUa ca hai bang 
Publishers va Titles duc hién thi. Nhdp nit ADD dé xac dinh lién két 
giUfa cau command cha va command con. 


BuGc 18: Dong cac cUfa sO va lutu du an lai. 


XAY DU'NG GIAO DIEN CHUONG TRINH 


BuGc 19: Thém vao m6t diéu khién vao du an bang cach chon 
Project\Components trén menu; tim d6n mUc Microsoft Hierachial Flexgrid 
Control 6.0 (OLEDB). Danh dau tity chon nay va nhap OK. 


Buc 20: M6 Form1, tao giao dién cho chuong trinh nhu dang sau (hinh 
bén du6i): 


Item 1: Label 

Name: lbl!Company 

Caption: Company Name 

Item 2: TextBox 

Name: txtCompany 

Text: micro 

Item 3: CommandButton 
Name: cmdGO 

Caption: GO 

Default: TRUE 

Item 4: Hierarchial FlexGrid 
Name: grdTitles 
AllowUserResizing: 1-flexResizeColumns 
DataSource: DataEnvironment1 
DataMember: Publishers 


FixedCols: 0 


#, Project! - Microsoft Visual Basic [design] - [Project1 - Form! (Form)] 
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Hinh VII.2: Giao dién Ung dung 


Buc 21: Nhap chu6t vao phai vao Hierarachical FlexGrid trén Form1, 
hdp thoai thu6c tinh cUa Hierarachical dudc m6 ra. Chon muc BANDS 
trong hdp thoai nay. Chon BandO (Publishers) sau d6 kh6ng daénh dau vao 
truOng PubID (vGi tén 1a Expr1) dé no khéng hién thi khi thc hién cau 
SQL. Ciing vay, khong danh dau vao truOng PubID cUa Band1 (hinh 
du6i): 


Property Pages x| 


General Bands | Style | Font | Color | Picture | 


2 
Gridlines: fi-Flat =] Bandindent [1 
TextStyle: fo-Fiat =] [~ BandExpandable 
TextStyleHeader. fo-Fiat =] T ColumnHeaders 

Column Name 


Cancel | Apply | Help | 


Hinh VII.3: Chon truOng hién thi trén Ludi 


BuGc 22: D6i tén cUa cdc ct trong Band1 tl Expr2, Expr3 thanh Title va 
Author bang cach: Nhap chu6ét 2 lan vao mUc can d6i tén trong Column 
Caption, nhap tén mGi vao; sau d6 chon OK. 


Bu6c 23: Muc dich cua chuong trinh nay 1a: Khi chuOng trinh thu thi, 
trong TextBox cé m6t tu’ la micro, tl’ dudc dé nghi tim kiém. Khi nhap 
chu6t vao nut nhan; doan van ban trong TextBox duc ding dé thuc thi 
cau SQL Publishers; cau SQL nay sé truy tim tat ca cdc cOng ty ma tén 
cUa ching chUfa chudi duc nhap vao trong TextBox; két qua tra vé 
dugc hién thi trén luGi. Do d6, ta sé xt ly sy ki€n cmdGO_Click bang 
doan ma sau: 

MousePointer = vbHourglass 

With DataEnvironment1 

.rsPublishers.Close 

.Publishers "%" & txtCompany. Text & "%" 

End With 

' Thiet lap tren luoi 

Set grdTitles. DataSource = DataEnvironment1 

grdTitles.CollapseAll 


MousePointer = vbDefault 


BuGc 24: Luu dy an va chay chuOng trinh. SUr dung micro dé tim kiém 
(ta cd thé thtr vdi tl khac nhu: hill hay mill) 


TAO BAO CAO (REPORT) 


BuGc 25: Néu Data Report Designer kh6ng hién thi duGi menu PROJECT, 
m6 hdp thoai COMPONENTS, chon Data Report Designer trong mUc 
chon Designers. Sau d6 ta thém Data Report Designer vao du an bang cach 
chon PROJECT\ADD DATA REPORT trén menu. 


BuGc 26: Lién két Data Report Designer vGi Data Environment nh0 viéc 
thiét lap thu6c tinh DataSource cUa Data Report la DataEnvirronment1 va 
thuOc tinh DataMember 1a Publishers. 


Buc 27: Nhap chu6t phai trén Data Report Designer va chon 
RETRIEVE STRUCTURE trén menu. M6t h6p thoai xac nhan hién lén 
va ta chon YES. 


BuGc 28: Ta nhan thay trén report g6m cac phan: report header, page 
header, publisher information, title information, page footer, va report 
footer. 


BuGc 29: Chon phan Report Header, trong phan nay, thém mt Report 
Label vao, dat Caption 1a Book Report; ta c6 thé d6i Font cht? va kich 
thuc Font tuong Ung. 


Buc 30: Chon Group header, trong phan nay thém m6t Report TextBox 
vao; dat thuOc tinh DataMember 1a Publishers va DataField 14 Name. 


BuGc 31: Chon phan Detail cUa Report. Trong phan nay, thém 2 Report 
TextBox vao, dat 2 diéu khién nay canh nhau trong phan Detail; chon 
TextBox tht nhat va dat thu6c tinh DataMember 1a Titles va DataField 1a 
Expr2, d6i v6i TextBox thU hai: DataMember: Titles, DataField: Expr3. 


Buc 32: Luu du an lai. 


Buc 33: Chon Form1 trong méi tr'udng soan thao; tao mOt menu trong 
Form1 bang cach chon Tools\Menu Editor; trong Menu Editor, tao mOt 
Report menu vGi cac phan tu 1a Preview va Print vGi cdc thu6c tinh sau: 


Item 1 — Menu 


Name: mnuReport 
Caption: Report 
Ttem 2 — Menu 
Name: mnuPreview 
Caption: Preview 
Item 3 — Menu 
Name: mnuPrint 
Caption: Print 


Buc 34: Ta cé thé xem bao cao tru6c khi in nhO ham Show cUa d6i 
tuOng Report. Trong ham xU ly su kién mnuPreview, thém doan ma sau: 


DataReport1.Show 


Buc 35: In bdo cdo duc thUc hién nhod ham PrintReport cUa di tudng 
Report. Trong ham xu ly su’ kién mnuPrint, thém doan ma sau: 


DataReport1.PrintReport 

BuGc 36: Luu va chay chuOng trinh. Tht hién thi va in report. 
Bai 7-2 

BIEU MAU NHAP LIEU VOI DATA ENVIRONMENT 


¢ Tao m6t dy dn m6i; b6 sung Data Enviroment vao du an cUa ta nho 
chon Project/Add Data Environment. Khi lUa chon mUc nay, mOi 
truOng DED sé hién thi; str dung cUfa sO Properties dé thiét lap 
thudc tinh Name 1a: datHH. O day, ta sé str dung DED dé két ndi 
v0i CSDL HANGHOA.MDB. 


e Sua lai thudc tinh Name cUa Connection1 1a conHH; sau dé chudt 
phai lén conHH, chon Properties. 


O hOp thoai dau tién, ta phai chon m6t trinh cung cp dtr liéu, 6 day 
chon Microsoft Jet 4.0 OLE DB Provider, nhan Next dé ti€p tuc. 


Tiép theo ta can nhap chinh xac duOng dan dén tap tin CSDL, chang 
han 6 day 1a: H:\Visual Basic\HangHoa.Mdb. 


Cui cing, nhén ntit Test Connection dé kiém tra viéc néi két dt liéu 
chinh xac hay khéng? 


ry Project! - Microsoft Visual Basic [design] - [datHH (DataEnvironment)] 
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Specity the following to connect to Access data: 
1. Select or enter a database name: 


H\Visual Basic VB Vinh Long\HANGHOA.MDB [i 


Forms 
© Formt (Form. frm) 
6 Designers 
Batt (Oatanvironmer 


< il ] a 


‘conHH DEConnection x 
Ahab: | ctegrced | 

(Name) conHH 

Attributes 

CommandTimeoutkt 

Connection SourctProvider=Micros 


f Lx] 


‘CommandTimeout 
Returns/sets the time, in seconds, that 
ithe server waits For a DECommand 


Test Connection 
OK Cancel Help 


‘Connection: conHH (not connected) 


Eq 


Form Layout 


Start (12 Micros... +) Q Windows. ig, Project! - @ Visual Basic 


&, Data Link Properties 


Provider | Connection| Advanced| All — | 


Select the data you want to connect to: 


OLE DB Provider(s) 

MediaCatalogDB OLE DB Provider 
MediaCatalogMergedDB OLE DB Provider 
MediaCatalogebDB OLE DB Provider 

Microsoft ISAM 1.1 OLE DB Provider 

Microsoft Jet 3.51 OLE DB Provider 

Microsoft Jet 4.0 OLE DB Provider 

Microsoft OLE DB Provider For Data Mining Services 
Microsoft OLE DB Provider for DTS Packages 
Microsoft OLE DB Provider for Indexing Service 


Microsoft OLE DB Provider for Internet Publishing 

Microsoft OLE DB Provider for ODBC Drivers 

Microsoft OLE DB Provider for Olap Services 8.0 

Microsoft OLE DB Provider for Oracle 

Microsoft OLE DB Provider for Outlook Search 

Microsoft OLE DB Provider for SQL Server a 
Microsoft OLE DB Simple Provider 

MSDataShape v 


OK | Cancel | Help | 


Hinh VII.4: Tao Connection 
Tao di tug¢ng Command: 


e Xay dung m6t ddi tugng Command két n6i trUc tiép vi Table 
(bang) THANGHOA trong file dt liéu HangHoa.mdb. 

e Nhap chudt phai trén két n6i dt li@u conHH & chon Add 
Command; sU’a Command Name 1a: comHH; chon Table ttf Combo 
Box Database Object, chon THANGHOA tU' Combo Box Object 
Name. 

e TruGc khi déng hp thoai nay, ta chuyén qua nhan Advanced & thiét 
lap LockType 1a 3 — Optimistic (mac nhién 1a 1 — Read Only); Cursor 
Location: Use client-side cursor. NhO vay ta mGi c6 thé cap nhat 
Record Set ttf chUOng trinh cUa ta. 

e Trd lai giao dién DED, ta dugc: 


Hinh VII.5: D6i tuong Command 


Efex) 
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‘Connection; conHH {not connected) 


Tao mét Ung dung nhap liéu v6i DED 


¢ O moi trudng DED, ta kéo cdc trudng cla Command comHH vao 
Form1, chinh stfa lai cho thich hgp. 

° O day ta cé sU dung m6t ludi dé hién thi dir li€u; do vay ta chon 
Project\Component; chon Microsoft DataGrid Control 6.0 (OLE DB); 
sau d6 kéo diéu khién nay vao Form, thiét lap cdc thu6c tinh cho 
thich hop. 


Name: grdHH. 
DataSource: datHH 
DataMember: comHH 


e Nhdap chu6t phai lén diéu khién DataGrid, chon Retrieve Structure. 
Sau do, luu dy an & chay chuOng trinh ta duc: 


Thong tin hang hoa 


Ma hang [BGO1 

Ténhang [BotgitOmo © | 
DVTinn [Goi 

Maloai [0005 


ao so mi (vai Viet Tién) 
Bét giat Omo 

Ban lam viéc 

Ban trang diém 

Ca moi hép 

D&u gdi Clear 

Du géi Sunsilk 

Mi Aone 


Hinh VIL6: Két qua thuc thi Ung dung 


e Thém cdc ntit hanh déng (Thém, Stfa, Xéa,...). Chang han cac su 
kién cmd_Them_Click, cmdXoa_Click, cmdLuu_Click, 
cmdHuy_Click dugc xu ly: 


Mahang JAMO1 
Ten hang faosomi(vaiVietTién) 
DV Tinh [Cai 


Ma loai fooo4 


| Ban lam viec 

| Ban trang diem 

[Ca moi hép 

D&u géi Clear 

| Déu géi Sunsilk 

[Mi Aone 

|Nuéc mm Hal Bang 


Vitis = 


Hinh VII.7: Giao dién day du 
Private Sub cmdThem_Click() 
With datHH.rscomHH 
.AddNew 

End With 

End Sub 

Private Sub cmdXoa_Click() 
With datHH.rscomHH 
.Delete 

.Update 

Me.Refresh 

End With 

End Sub 

Private Sub cmdHuy_ClickQ) 
With datHH.rscomHH 
.CancelUpdate 

Me.Refresh 

End With 

End Sub 


Private Sub cmdLuu_Click() 


On Error GoTo Xuly 

With datHH.rscomHH 

.Update 

End With 

Me.Refresh 

Exit Sub 

Xuly: 

MsgBox Err.Description, vbCritical + vbSystemModal, "Error" 

End Sub 

Nhu vay, ta da thiét ké xong m6t Form cho phép hién thi thong tin cdc 


hang héa, Form nay cho phép stta d6i, thém mGi cdc mau tin trong bang 
THANGHOA cua CSDL HANGHOA.MDB. 


BAI TAP TU LAM 


1) SU dung DataEnviroment, thiét ké Form nhap liéu cho bang 
THangHoa (hinh duGi). O day thay vi hién thi MaLoai, ta lai hién thi 
TenLoai: 


mm. Form2 
Mihang [AMOt 
Ten hang Jaosomi(vai VietTién) 
DY¥Tinh Cai 


Loai [Quan ao may san 7] 


Ca moi hop Hop i 
MGO1 Mi Aone Thiing Thu pham 
NMO4 Nuéc mamHaiBang Chai Thue pham 
BLO1 Ban lam viéc Cai DS trang tri ndi thal 
BTO1 Ban trang diém Cai Dé trang tri ndi thal 


AMO1 —_/a0's0 mi (vai Viet Tién) Cai Quan ao may sin 
BGO1 Bét giat Ome Géi Chat tay rita 
RCO1 Nuée rita chén Sunligh Chai Chat tay rita 
neni Nau nAi Clear Chai Me nham 


Hinh VII.8: Form nhap liéu 


2) SU dung DataEnviroment, thiét ké Form nhap liéu cho bang 
TNhanVien. 


3) SU dung DataEnviroment, thiét ké Form cho phép nhap (sta, x6a) 
thong tin vé mOt phat sinh vé m6t mat hang nao dé trong ngay. Luu y: 
TruOng STT 1a ki€u AutoNumber (Access), Ngay: lay ngay hé thong 
(ham Now). 


Thiét lap bao cdo 
Muc tiéu: Chung nay gidi- thiéu cach thUtc dé tao bdo cdo bao g6m hién 
thi dtr li€u cing nhu sap xép va phan nhom dt? liéu. 


Hoc xong chuOng nay, sinh vién cé thé: 


e SU dung tinh nang Report cUa Microsoft Access trong cdc Ung dung 
nho. 

e SU dung Data Report dé tao bao biéu. 

e SU dung Crystal Report, céng cu manh dé tao bao biéu. 


Kién thtfc can thiét: 


e Thu vién d6i tugng ActiveX Data Objects (ADO). 
e MOi truOng du liéu Data Environment. 


Tai li€u tham khao: 


Visual Basic 6.0 va Lap trinh co so dU liéu - Chuong 21, trang 637 - 
Nguyén Thi Ngoc Mai (chU bién) — Nha xuat ban Gido duc - 2001. 


SU’ DUNG MICROSOFT ACCESS DE LAP BAO CAO 
C6 hai ky thuat dé thi hanh m6t bdo cdo Access tl’ Ung dung VB: 


- SU dung Automation dé phong mot thé hién (instance) cUa Microsoft 
Access, thi hanh bao cdo trUc tiép tU trong Ung dung. Automation la mot 
ky thuat cho phép giao tiép gitta cdc Ung dung trén Windows. 6) day 
Microsoft Access sé lam Automation Server. 


- Ding VSREPORTS cua VideoSoft cho phép ngudi su dung VB thi hanh 
bao cdo cUa Microsoft Access bat ké may cUa ho cé cai dat Microsoft 
Access hay 1a khong. Day 1a m6t diéu khién ActiveX chuyén d6i bao cdo 
tl tap tin MDB thanh m6t dinh dang ma ta c6 thé cung cap cing Ung 
dung. 


Trong bai giang nay, chting t6i chi trinh bay cach th nhat mac di cdch 
nay c6 nhiéu han ché. D6i vGi cach thU hai, dé c6 thé thuc hién dugc ta 
can phai cai dat mOt s6 thu vién lién két dOng (DLL). Cac thu vién nay 
tuong dOi khé tim va nhat 1a chting doi hoi ban quyén. 

Bat loi cUla ky thuat ding Automation 1a budc ngudi ding phai chay m6t 
thé hién (instance) cUa Microsoft Access citing nhu phai cai dat Microsoft 


Access trén may. Dé lap trinh theo ky thuat nay, ta ti€n hanh theo cac 
buc sau: 


- Tham chiéu dén Microsoft Access bang cach tl menu Project chon 
Preferences -> Microsoft Access 9.0 Object Library. 


- Sau dé ta tao mt d6i tudng nhu 1a d6i tugng Ung dung cUa Access 
nhu sau: 


Dim MSAccess As Access.Application 


e Sau dé ta can tao m6i d6i tung nay cing nhu tao m6t tham chiéu 
dén co so dt liéu chtfa bao cao: 


Set MSAccess = New Access.Application 
MSAccess.OpenCurrentDatabase(“Database Name”) 

- SU dung thuGc tinh DoCmd dé thi hanh bdo cao: 
MSAccess.DoCmd.OpenReport "Report Name",acViewNormal 
- Dong co sO di liéu: 

MSAccess.CloseCurrentDatabase 

Luu y: Tranh ding rang buéc tré vGi Automation 


Phién ban ci cua Automation 14 OLE Automation, ding trong VB 3.0 va 
Microsoft Access 2.0. 


Trong VB 3.0, ta cé thé viét chUOng trinh nhu sau: 
Dim MSAccess As Object 
Set MSAccess = CreateObject(“Access.Application’’) 
Doan chuong trinh trén hoat d6ng t6t d6i vGi VB 3.0 nhUng cé m6t cach 
khac t6t hon. Thay vi ding kiéu Object, ta nén chi rd kiéu df liéu d6i 
tuQng ma Automation Server cung cap (chang han Access.Aplication néu 
la Access). BGi vi khi d6, VB khong can thi hanh cau truy van trén 
Automation Server m0i khi ta truy cap no dé xac dinh kiéu d6i tudng can 
tao. KY thuat nay goi la rang buc tré, gid day chi phU hgp vGi 2 tinh 
huOng: 

e Ta khong biét truGc ki€u d6i tung Automation Server. 


e Ta dang str dung mOt méi truOng phat trién ting dung khéng hO tro 
rang buOc sOm, nhu’ VBScript hay ASP. 


sU' DUNG THIET KE DATA REPORT 
Thiét ké bdo c4o ding DataReport 14 diém mGi trong VB6, day 1a mét 


cong cu dudc hé tro bi VB6, cung cap m6t cach trUc quan vé thiét ké 
bdo cdo va cé Uu diém 1a rat dé ding. 


Thiét ké v6i DataReport 
- Chon Project -> Components. 


- Chon Tab Designers, danh dau chon Data Report. 
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Hinh 13.1 Dua thiét ké bao cao vé dé an 


Cac thanh phan cUa mOt bao cao nhu sau: 

- Report Header: Hién thi m6t lan 6 dau bao cao. 
- Report Footer: Hién thi m6t lan 6 cudi bao cao. 
- Page Header: Hién thi tai dau mi trang. 

- Page Footer: Hién thi tai cui mOi trang. 

- Detail Section: Hién thi cdc dong dt liéu. 


- M6t hoac nhiéu nhém dau cudi hién thi tai dau va cudi mi phan 
nhom. 


Cac diéu khién cUa thiét ké Data Report nhu sau: 
- Diéu khién nhan (Rpt Label). 

- Diéu khién hOp van ban (Rpt Textbox). 

- Diéu khién anh (Rpt Image). 

- Diéu khién hinh dang (Rpt Shape). 


- Diéu khién cdc ham tinh todn (Report Function: rptFuncSum, 
rptFuncAve, rptFuncMin, rptFuncMax...). 
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Hinh 13.2 CUta s6 Data Report 


Cac diéu khién cla Data Report cling giOng nhu 1a cac diéu khién chuan 
trén biéu mau, chting c6 thé rang budc v6i ngu6n dif liéu. Tuy nhién, ta 
cé mOt cach thUc khac dé dang hon do 1a sU dung mi trudng dif liéu 
(dudc gidi thiéu 6 chuong truGc). 


Su dung DataEnvironment trong viéc tao DataReport: 
Qua trinh thUc hién trai qua céc buGc sau: 
- Tao déi tugng Command. 


- Kéo tha cdc truOng cUla d6i tuong Command nay vao thiét ké cla 
Report. 


- Thém cdc tiéu dé dau trang & cudi trang. 


Vi du: Tao bdo cao vé cac sinh vién trong bang STUDENT thudc co sO 
dtr liéu Student. 
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Hinh 13.3 Thiét lap Data Environment- BuGc 1: Tao m6t n6i két dén 
CSDL Student trong trinh Data Environment, thém m6t d6i tuong 
Command cho phép lay dtr liéu tl bang Student. 


- BuGc 2: Kéo tha caéc truOng can hién thi vao bao cdo tai mUc Detail, chi 
gilt lai tr'uOng lién quan dén thong tin dt liéu (dat trong phan Detail 
Section). Thiét lap tén truOng dudi dang tiéng Viét tai phan Page 
Header. 

- BuGc 3: Cung cap cac thong tin cho phép DataReport nhan d@ liéu tu 


dau bang cach xac lap: DataSource: DataEnvironment1, DataMember: 
Student. 
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Hinh 13.4: Report khi da kéo tha cac truOng 


Thiét ké bao biéu cé phan nhom dif liéu 
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Hinh 13.4: Nhom df liéu- Chon d6i tugng Command cua trinh 
DataEnvironment can nhom co sé dtr liéu. 


- Hién thi trang thudc tinh, chon Tab Grouping. 
- Chon tuy chon Group Command Object. 
- Dat tén cho nhém ciing nhu chon cac truOng tham gia vao nhém dU liéu. 


- Dat lai gid tri cho thu6c tinh Data Member chi dén ndi két mdi da nhém 
dtr liéu. 


- Chon bao cao thiét ké, An chuét phai, chon Insert Group Header/Footer. 
- Chon tén truOng nhém dU liéu dua vao doan Group Header. 


Khi d6 bao cdo duc thiét ké nhu sau: 
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Hinh 13.5 Bao cao cé nhém dt liéu 


Xem va xuat Data Report 


Ta co thé xem thong tin va in bao cdo trén m6t cla sO riéng biét st’ dung 
ché d6 Print Preview bang cach thi hanh phuOng thUc Show. 


Khi d6 bao cdo sé duoc hién thi nhu sau: 
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Hinh 13.6: Thi hanh bao cao trong VB 


Khi dé ngu6i str dung c6 thé duyét qua cac trang néu nhu bao cdo cé 
nhiéu trang, cling nhu chon m6t trang bdo cdo nao dé dé in. 


Ngoai ra nguOi ding c6é thé chon Export bdo cdo cUa minh ra tap tin cé 
dinh dang khac, cdc loai dinh dang 6 day cé thé 1a tap tin van ban, tap tin 


HTML. Ta c6 thé chon lUa xuat m6t s6 trang cu thé nao dé hoac toan b6 
bao cao. 
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Hinh 13.7: H6p thoai xuat bao cdo 
SU’ DUNG CRYSTAL REPORT DE LAP BAO CAO 


Crystal Report cho phép tao bdo cao co s6 df liéu trong Ung dung viét 
bang VB. No g6m 2 phan chu yéu: 


- Trinh thiét ké bdo cdo xac dinh dif liéu sé dua vao bao cao va cach thé 
hién cua bao cao. 

- MOt diéu khién ActiveX cho phép thi hanh, hién thi, diéu khién va in 
bao cao khi thi hanh Ung dung. 


Crystal Report khéng c6 san khi cai VB6, ta can cai dat thém. Chuong 
trinh cai dat Crystal Report chi cé trén ban Professional. Chay tap tin 
Crystl32.exe trong thu mUc \COMMON\TOOLS\VB\CRYSREPT. 


Thiét ké bao cao 


MOt diém khac biét khi ding Crystal Report 1a ta khong thiét lap bao cdo 
di d6i vGi Ung dung cu thé. Ta sé xay dung bao cao truGc va sau dé sé 


gQi thi hanh bdo cdo tU phia Ung dung, bdo cdo khéng phai 1a mdt bd 
phan thudc tmng dung. CUfa s6 thiét ké Crystal Report nhu hinh bén du@i: 
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Hinh 13.8 CUta s6 Crystal Report 
Khi ta chon tao mt bdo cdo mi, Crystal Report trinh bay mt h6p thoai 


cho phép lua chon m6t trong nhiéu nhting khu6n mau bao cao da dinh 
san. 
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Hinh 13.9 HOp thoai chon cdc mau 


Kieu bao Mo ta 

cao 

Siar ial Bao cao sap x€p thong tin theo dong va cOt, cho phép 
nhom du liéu. 

- Bao cdo 1a danh sach dif liéu lién tUc khéng cé t6ng 

Listing e R 2 n 
ket hay truOng tOng cOng.. 

Cross- ee te a eee 
Sap x€p du liéu theo hai chieu. 

Tab 

Mail Bao cdo duoc thiét ké dé in di liéu theo cét cho 


label nhan thu. 


Summary 


Graph 


Top N 


Drill 
Down 


Another 


Bao cao chi hién thi thong tin tong quat, khong chtta 
dtr liéu chi tiét. 


Bao cao thé hién dif li€u mt cach truc quan bang 
biéu d6 


Bao cao cho phép chi hién thi m6t s6 mau tin dudc 
chon 


Bao cao cho phép nhén dtp chudt lén dtr liéu tong 
quat dé hién thi dtr liéu chi tiét. 


Cac bao céo c6 khuén mau do ngudi ding dinh nghia 
trudc dé. 


Chung ta xét qua mOt vi du str dung Crystal Report dé lap bao cao 


- Khdi dOng Crystal Report va chon New, chon kiéu bao cao 1a Standard. 


- Tiép theo chon Data File. 


- Trong hOp thoai chon tap tin co s6 dt liéu, ta chi dén m6t tap tin co sé 
dt liéu, sau d6 an ntit Done. Ta sé thay cdc bang ciing nhu cac quan hé 
gitta cac bang dugc hién thi. 
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Hinh 13.10 HOp thoai quan hé gilfa cdc bang 


Quan hé gilfa cdc bang da duc xac dinh 6 mUrc thiét ké co sé dt liéu 
nén ta khéng can phai thay d6i nhting mi lién két nay. 


- Nhan ntit Next qua buGc tiép theo, ta sé chon nhting truOng tham gia 


vao bao cao. 


- BuGc ké tiép ta chon qua Tab Sort dé thuc hién viéc sap xép d& liéu. 
- Tab Style cho phép chon cac dang khac nhau cUa bao cao. 
- Sau khi da thiét ké xong, ta an Save dé luu lai bdo cao. 


Khi mG lai bdo cdo da thiét ké, ta thay Crystal Report hién thi bao cdo 6 
hai mUc, thiét ké va duyét truéc. 
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Hinh 13.11: Cla s6 xem truGc bao cao va thiét ké bao cdo 


Thi hanh bao cao trong Ung dUng thong qua diéu khién ActiveX cUla 
Crystal Report 


BuGc dau tién dé cé thé thi hanh bao cdo Crystal Report, ta can tham 
khao dén diéu khién ActiveX cUa Crystal Report bang cach thém céng cu 
Crystal Report vao dé an cUa chting ta. 


Chon céng cU Crystal Report va dUa vao Ung dung, biéu tuong trén hop 
cong cU nhu sau. Trong su kién Click cUa mt nuit 1énh, ta viet doan ma 
sau: 

Private Sub Command1_Click() 

CrystalReport1.ReportFileName = "d:\VB\bc.rpt" 
CrystalReport1.PrintReport 

End Sub 


Thu6c tinh ReportFileName xdc dinh duGng dan cting nhu tén tap tin bdo 
cao. 


Viéc thi hanh bao céo du@c thuc hién nho vao thuOc tinh PrintReport. 
Ngoai ra, bao cdo cé thé thi hanh bang cach hién thi trén m6t cUfa s6 khac 
hoac 1a xuat ra thang trén may in, ... Ta thiét dat thudc tinh d6 qua hép 
thoai thu@c tinh. 
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Hinh 13.11 H6p thoai xac lap thu6c tinh 


Bao céo thi hanh trén m6t cUfa sO riéng biét, ta cé thé lua chon nhiéu cong 
viéc nhu xem qua cac trang, in an bao cdo, phong to thu nho ... 
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Hinh 13.12: Bao cao Crystal Report 

LOI KET 

Chuong Thiét lap bdo cdo cling 14 chuOng két thuc cUa gido trinh Visual 
Basic. Tuy nhién lap trinh su kién va lap trinh co sé d&f liéu vi VB chi 1a 


m6t phan trong nhttng kha nang ma VB mang lai. Hy vong chung tdi sé 
gap lai ban doc trong nhttng chuyén dé khac cUa VB. 


